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PREFACE 



If you are an Amstrad owner, or are about to become one, it is 
probably because you have decided that this computer offers 
you more potential for gaming, programming etc. in colour, 
with sound, than other machines on the market. 

Because we are aware of the potential of the Amstrad we have 
written a wide choice of program which make use of the 
computer's facilities. 

If you are a games player, you will find ample opportunity to 
use the colour and graphics whilst testing your reactions and 
finger twisting skills to the full. If you are interested in 
adventure gaming we have included a program which is a 
variant on Dragons and Dungeons. We have not, for reasons 
of space, been able to list a fully extended program but, when 
you buy your disks, you will be able to use a wider range of 
circumstances for your adventuring. 

To help users understand the programs we have included full 
'how to' instructions and, for those who are keen to move on 
to greater things, programming hints where we feel they may 
be of interest. 
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IMPORTANT NOTES 



If you are a newcomer to computing, and are unfamiliar with 
the task of entering program listings, remember that it is of 
paramount importance to follow every detail. There are no 
real shortcuts. 

Your computer is very particular about grammar and 
punctuation points and will not run the programs if even a 
small detail is missing. 

Be very fussy about the difference between (zero) and □ 
(letter 0). All the programs in this book have been printed 
directly from the Amstrad and are therefore 'bug free'. 

If you intend to 'save' some of these programs on tape to 
ensure you don't have to retype them always make sure that 
your cassette has accepted the information before you move 
on. 

You will find that patience is it's own reward in this high 
technology world. 



ZOMBIE ISLAND 




This is going to be a nasty experience for those amongst you 
who are slow on reaction time. 

You are the only survivor of the mad professor's plans to turn 
humans into zombies and you are being pursued by ten of 
your old friends who now, unfortunately, have been 'de- 
humanised'. Your only hope is to lure the zombies into the 
pits which are spread around the screen. Sounds easy. There 
is one snag though, or is it several snags, the zombies can 
move in groups towards you. 



How to play 

As we said above, try and live as long as possible by moving 
with the arrow keys or joystick. If you survive you will be 
offered the choice of continuing to battle with your former 
pals. 
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Because of the sprite facilities of the Amstrad you will find that 
the chances of survival are fairly slim. 



The program 



10 REM ZOMBIE ISLAND 

20 GOSUB 520 

30 N=10:PIT=10 

40 Z=N 

50 MODE 1: BORDER 3 

60 PAPER 3: PEN 0: LOCATE 1,1: PR I NT" 

ZOMBIE ISLAND "; 

70 X=21:Y=19: LOCATE X,Ys PAPER 0:PEN 1 s PR 
INT CHR$<249) 5 

80 DIM A(N) , BOM) : FOR L=l TO M 
90 A (L) =INT (RND ( 1 ) #40+1 ) : B <L> = INT (RND ( 1 ) 
#23+2) 

1 00 X X=A ( L ) : YY=B ( L ) : 60SUB 660 s I F DD< >32 
THEN GOTO 90 

110 LOCATE XX,YY:PEN 2s PRINT CHR*(225); 
120 NEXT L 
130 FOR L=l TO PIT 

140 XX=INT(RND<1)*40+1> : YY=INT (RND ( 1 ) *23 
+2) 

150 GOSUB 660: IF DD<>32 THEN GOTO 140 
1 60 LOCATE X X , YY : PEN 3 1 PR I NT CHR$ ( 23 1 ) ; 
170 NEXT L 
180 C=0:D=0 

190 C=C+1:IF ON THEN C=l 
200 IF A(C)=-1 THEN GOTO 190 
210 S=SGM(X--A(C) ) :T=SGN(Y-B<C) ) 
220 XX=A(C)+S:YY=B(C)+T5 GOSUB 660 
230 IF DD=231 THEN GOSUB 400: LOCATE A(C) 
,B(C): PAPER 0: PRINT" ";: A (C) =-1 : LOCATE X 
X,YY: PRINT " " ; : GOTO 270 
240 IF DD=249 THEN GOTO 420 
250 LOCATE A (C) , B (C) : PEN 2s PRINT" ";:A(C 
)=XX:B(C)=YY: LOCATE XX, YY: PRINT CHR*<225 
) 5 

260 SOUND 0,300, 10 
270 IF INKEY(0>=0 THEN D=0 
230 IF INKEY(2)=0 THEM D=2 
290 IF INKEY(1)=0 THEN D=l 
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300 IF INKEY(8)-0 THEN D=8 

310 S=X:T=Y:IF D=8 AMD S>1 THEN S=S-1 

320 IF D=l AND S<40 THEN S=S+1 

330 IF D=2 AND T<24 THEN T=T+1 

340 IF D=0 AND T>2 THEN T=T-1 

350 XX=S:YY=T:G0SUB 660: IF DD=231 THEN G 

0T0 420 

360 IF DD=225 THEN GOTO 420 

370 LOCATE X , Y : PEN 1 : PR I NT " " ; : LOCATE S , 

T: PR INT CHR*<249> ; 

380 X=S:Y=T 

390 GOTO 190 

400 Z=Z-1:IF Z=0 THEN GOTO 490 

410 FOR L=l TO 50: SOUND 1 , L*10, 1 : NEXT L: 

RETURN 

420 FOR L=l TO 50: SOUND 1 , RND ( 1 ) *2000+10 

0,2: BORDER INT (RND ( 1 ) *24> 

430 NEXT L 

440 LOCATE 1,8: PAPER 3: BORDER 3: PEN OsPR 

INT" CAUGHT BY THE ROBOTS 

tf 

450 LOCATE 1,25: PAPER OsPEN 2: PRINT" 

PRESS < SPACE)- TO PLAY AGAIN 
460 IF INKEY*=" " THEM GOTO 460 
470 IF INKEY*<>" " THEN GOTO 470 
480 RUN 

490 REM PLAYER WIN ROUTINE 
500 LOCATE 1,8 ."PAPER 3: BORDER 3: PEN 0:PR 
INT" YOU HAVE SURVIVED THE ISLAND 

II 

510 GOTO 460 

520 REM PUT MACHINE CODE JUST ABOVE RE-A 

DJUSTED HIMEM 

530 MEMORY FRE<0>-&80 

540 MC=HIMEM+1 

550 TA=HIMEM+&7F 

560 TH=INT(TA/256) 

570 TL=TA-256*TH 

580 POKE MC,?/.CD 

590 POKE MC+l,?/.60 

600 POKE MC+2,&BB 

610 POKE MC+3,&32 

620 POKE MC+4,TL 

630 POKE MC+5,TH 

640 POKE MC+6,S/.C9 

650 RETURN 
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660 LOCATE XX, YY 
670 CALL MC 
680 DD=PEEK(TA) 
690 RETURN 



CLEAR PATH 




You may recall that the United States space shuttle 
Challenger was often nicknamed The Flying Brick' by it's 
pilots as it fell to Earth at 5,000 miles an hour, without an 
engine. 

We have given you the same problem to solve, except we 
have made it even nastier for you by bringing you into a 
deserted city. 

We have given you one edge however. You have a cargo of 
bombs which you can use to clear a path for your flying brick. 



How to play 

Entering the screen at top left you must 'fly' across the city 
and demolish the skyscrapers by pressing the space bar to 
release your bombs. 
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You can only drop a second, or third, bomb when the first has 
hit it's target so there is no point in pressing the space bar and 
hoping for the best. 



Programming Hints 

To change the height of the buildings alter the number after 
the * sign in line 680. Remember if you increase the height 
you will reduce the time you have to respond. 



The Program 



10 REM CLEAR PATH 

20 GOSUB 440 

30 EMT 1,200,2, 1 

40 BY=~1 

50 GOSUB 620 

60 LOCATE 1,1: PAPER 5: PEN 10 

70 PRINT" SCORE s " ? 

SO X=1:Y=3 

90 LOCATE 11,1 

100 PAPER 5: PEN 10: PRINT SCORE; 

110 PAPER 

120 TX=X+1:TY=Y 

130 IF TX=20 THEN TX=1:TY=Y+1 

140 IF TY=25 AND TX=10 THEN LOCATE 5,4:P 

EN 13: PRINT "LANDED SAFELY" : SC=SC+200: FOR 

W=l TO 1300: NEXT W:MODE 0:GQTO 50 
150 XX=TX+1:YY=TY:IF XX=21 THEN XX=1:YY= 
YY+1 

160 GOSUB 580 

170 IF DD=32 THEN GOTO 250 
ISO PEN 8: LOCATE 5, 4= PRINT" YOU CRASHED" 
190 IF IIMKEY*=" " THEN GOTO 190 
200 IF INKEY*<>" " THEN GOTO 200 
210 RUN 

220 SOUND 129,0: SOUND 130,0 
230 FOR L=15 TO STEP -1 
240 SOUND 8*129,0, 3, 5, 0,0, Li NEXT L 
250 LOCATE X,Y: PRINT" "i 

260 LOCATE TX,TY:PRINT CHR* < 197) ? CHR* (20 
2) ; 
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270 X=TX:Y=TY 

280 IF INKEY(47)<>0 OR BYO-1 THEN GOTO 

330 

290 SOUND 1,10, 280 ,4,0,1, 

300 BX=X+1 

310 BY=Y+l 

320 IF BY=26 THEN BY=-1 

330 IF BY=-i THEM GOTO 430 

340 IF BY=25 THEN LOCATE BX, BY: PRINT" "; 

:BY=-1: SOUND 130,0: SOUND 129,0: GOTO 430 

350 XX=BX:YY=BY+1 

360 GOSUB 580 

370 IF DD=32 THEM LOCATE BX, BY: PRINT" "s 

: LOCATE BX,BY+1:PEN 9: PRINT CHR* (252) 5 : F< 

Y=BY+1:G0T0 430 

380 SOUND 129,0 

390 SOUND 130,0,1 00 , 3 , „ , RND ( 1 ) *4-i- 1 

400 SC0RE=SC0RE+10 

410 LOCATE BX, BY: PRINT" "j 

420 BY-BY+1: LOCATE BX,BY:PEM 9: PRINT CHR 

$(252) ; 

430 GOTO 90 

440 REM PUT MACHINE CODE JUST ABOVE RE- A 

DJUSTED HI MEM 

450 MEMORY FRE<Q>-&80 

460 MC=HIMEM+1 

470 TA=HIMEM+&7F 

480 TH=INT(TA/256) 

490 TL=TA-256*TH 

500 POKE MC,&CD 

510 POKE MC+1,&60 

520 POKE MC+2,S<BB 

530 POKE MC+3,&32 

540 POKE MC+4,TL 

550 POKE MC+S^TH 

560 POKE MC+6,&C9 

570 RETURN 

580 LOCATE XX, YY 

590 CALL MC 

600 DD=PEEK(TA) 

610 RETURN 

620 REM DRAW THE CITY-SCAPE 

630 MODE 

640 BORDER 7 

650 PEN 3 

660 PAPER 1 
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670 FOR L=l TO 20 

680 FOR Q=25 TO 24-RND < 1 > *4 STEP 

690 LOCATE L,Q 

700 PRINT CHR*(207); 

710 NEXT Q 

720 NEXT L 

730 RETURN 



CASTLE 'ADVENTURE' 




Start looking out your armour, your good luck charms and 
your trusty friends as you are on your way to try and save the 
Elf King's daughter, yes we said Elf, from her prison. 

The girl's father is waiting for her return in the woods outside 
the castle. He's not stupid! 



How to play 

The program only uses two word commands, all of which are 
shown in the data statements at the end of the listing. Do not 
try to enter multiple statements such as "TAKE KNIFE AND 
RUN". 

You can, however, abbreviate the direction commands to 
their initial letter i.e. "GO N" for Go North. 

If you haven't 'adventured' before remember that, if you are 
stuck somewhere and can't seem to be able to move on, you 
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can ask to take Inventory which can also be abbreviated to 
INV. 



The Program 



1 REM CASTLE ADVENTURE 

5 MODE 2 

10 DIM DD*(50> ,0P(18) ,0D$<18> ,8TUNT<50> 

20 DIM ROUTE (50, 6> 

30 PL0O1 

40 PF=0 

90 GOSUB 9000 

95 GOSUB 5000 

100 GOSUB 7600 

110 GOSUB 3000: IF VERB=0 THEN PRIMT"I do 

n't understand you": GOTO 100 

115 GOSUB 4000 

120 ON VERB GOSUB 7000,, 7000 , 7000, 7000, 70 

00, 7000, 8000, 6000, 6500, 5000, 7500, 7400, 73 

00, 7700, 7800, 7900 

130 GOTO 100 

999 END 

1000 REM RETURN VERB NUMBER IN I /P STRIN 
G 

1010 RESTORE 10000: T=0 

1020 READ T$ 

1030 IF T*="*" THEN RETURN 

1040 IF LEFT*(T*, 1>=" !" THEN T*=RIGHT*(T 

*,LEN(T*)-1>:T=T+1 

1050 IF T*=V* THEN VERB=T: RETURN 

1060 GOTO 1020 

2000 REM RETURN NOUN NUMBER IN I/P STRUM 

G 

2010 RESTORE 11000:T=0 

2020 READ T$ 

2030 IF T*="*" THEN RETURN 

2040 IF LEFT*(T«, 1)=" ! " THEN T*=RIGHT*(T 

*,LEN<T*)-1):T=T+1 

2050 IF T$=N$ THEN NDUN=T: RETURN 

2060 GOTO 2020 

3000 REM PARSE THEN INPUT AND ANALYSE 

3010 VERB=0:NOUN=0: IF I$=" " THEN RETURN 
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3020 P=0:F0R L=LEIM<I*> TO I STEP' -1 

3030 IF M I D* ( I $ , L , 1 ) - " " THEN P=L 

3040 NEXT L 

3050 IF P=0 THEN V*=I*s GOSUB 1000 .-RETURN 

3060 V*=M I D* < I $ 5 1 , P- 1 ) s N*=M I D* ( I * , P+ j „ 40 

) 

3070 GOSUB 1000: GOSUB 2000 

3099 RETURN 

4000 ON STUNT (PLOO+1 GOTO 4010,4100,420 

0, 4300, 4400, 4500,, 4600, 4700, 4800, 490<V 

4010 RETURN 

4100 IF PFOl AND 0P(3)=0 THEN 0F<3)=-1: 

PR I NT "The princess dies of hunger" s GOTO 

4010 

4110 RETURN 

4200 PRINT" You -fall out o-f the tree &nd 

break your neck " s GOTO S990 

4300 PRINT"The tree is wobbling very d&n 

gerously": stunt (ploc) »2s GOTO 4010 

4400 PRINT"The tree is swaying in the wi 

nd" : stunt (ploc) ^3: GOTO 4010 

4500 PRINT" :, That looks nice', says the g 

uard, eyeing your gold": GOTO 4010 
4700 IF op (12)00 THEN PR I NT "The floor d 
rags you back, faster than you can move" 

:p lac -46: GOTO 4010 

4710 PRINT"Your ring of speed glows ^nd 

you rush down the corridor past the slid 

ing f loor" :ploc=50sG0T0 4010 

4800 PRINT" A portcullis drops down hard 

behind you, barring the castle entrance" 

: stunt (ploc)=0sG0T0 4010 

4900 IF op(3)<>0 THEN PRINT"The elven ki 

ng sees that you have f ai 1 ed in your res 

cue attempt, and he swiftly kills ynu":G 

0T0 8990 

4910 PRINT"The elven king greets you wit 

h fair words and offers you all the gold 

and silver of his kingdom as reward for 

the safe re 
turn of his daughter" 
4920 GOTO 8990 
5000 REN describe (ploc) 
5010 PR I NT "You &r& u ?> 
5020 1=0 
5030 1=1+1: IF l>LEN(DD*<ploc)) THEN GOTO 

5099 
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5040 IF MID*(DD*(ploc) , L, 1)=" ! " OR MID*< 

DD*(PL0C),L,1)="* M OR Mlb*(DD*(PLQC) ,L, 1 

)="" THEN GOTO 5099 

5050 PR I NT M I D* ( DD* ( PLOC ) , L , 1 ) ; 

5060 GOTO 5030 

5099 PRINT:GOSUB 5200: RETURN 

5100 REM DESCRIBE OBJECT NUMBER (M) 
5110 PRINT 

5120 L=0 

5130 L=L+1:IF L>LEN (OD* (N) ) THEM GOTO 51 

99 

5140 IF MID* (OD* (NOUN) ,,L,, 1)="" OR MID*(0 

D*(NQUN) ,L, 1)=" !" THEN GOTO 5199 

5150 PRINT MID*(OD*(N) ,L., 1) ; 

5160 GOTO 5130 

5199 PRINT: RETURN 

5200 REM DESCRIBE ALL (PLOC) OBJECTS 
5205 F=0: PR I NT "There is "5 

5210 FOR N=l TO 18 

5220 IF OP (N) -PLOC THEN NOUN=IM: F=l : GOSUB 

5100 
5230 NEXT Ns PRINT: IF F=0 THEN PRIMT"noth 
ing here" ELSE PRINT "here" 
5299 RETURN 
6000 REM TAKE COMMAND 

6010 IF NOUN=0 THEN PRINT"Take what ?":R 
ETURN 

6015 IF OP(NOUNX>PLOC OR OP (NOUN) =-1 TH 
EN PRINT"Take what ?": RETURN 
6020 IF OP (NOUN) =0 THEN PRINT" You' ve alr- 
eady got. it, dumbo" : RETURN 
6025 IF N0UNM3 THEN PRINT"You can't tak 
e that": RETURN 

6030 PRINT"O.K. You' ve got it now" 
6040 OP ( NOUN ) =0 : RETURN 
6500 REM DROP COMMAND 

6510 IF NOUN=0 THEN PRINT"Drop what ?":R 
ETURN 
6515 IF OP(NOUN)<>0 THEN PR I NT "Drop what 

?": RETURN 
6520 PRINT"O.K. It's dropped" 
6530 OP ( NOUN ) =PLOC : RETURN 
6700 FOR L=l TO LEN (OD* (NOUN) ) 
6710 IF MID* (OD* (NOUN) , L, 1)=" I " THEN OD* 
(NOUN) =LEFT*(OD* (NOUN) ,L-i)+" "+MID*(OD* 
(NOUN) ,L+1) 
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6720 NEXT Ls RETURN 

6800 FOR L=l TO LEN (DD<f> (PLOC) ) 

6810 IF MID* <DD* (PLOC), L, 1)=" !" THEN DD* 

(PLOC) =LEFT* (DD* (PLOC) , L-l ) +" "+MID* (DD* 

(PL0C),L+1) 

6820 NEXT L: RETURN 

6900 FOR L=l TO LEM (DD* (PLOC) ) 

6910 IF MID* (DD* (PLOC), L, 1 >="*■• THEN DD* 

( PLOC ) =LEFT*(DD*( PLOC), L-l )+" "+MID$(DD* 
(PL0C),L+1) 

6920 NEXT L: RETURN 

7000 NLOC=ROUTE (PLOC, VERB): IF NLOCO 1 A 

MD NLOC< >0 THEN PR I NT " . K . " : PR INT: PLOC=N 
LOCs GOSUB 5000:60SUB 4000; RETURN 
7010 IF NL0C=-1 THEN GOTO 7030 
7020 IF VERBIS THEN PRI!MT"There' s nothin 
g that you can climb here": RETURN 
7025 PR I NT "You can't move in that direct- 
ion": RETURN 

7030 PRINT "A door blocks your way":RETUR 
N 

7300 IF N0UNO0 THEN PRINT"try EXAMINE" :: 

RETURN 

7310 GOSUB 6800:G0SUB 5000s RETURN 

7400 IF N0UN=0 THEN PRINT" ex amine what '- 1 

" s RETURN 

7405 IF 0P(N0UNX>0 AND OP (NOUN) OPLOC T 

HEN PRINT"examine what ?": RETURN 

7410 GOSUB 6700: N=M0UNs GOSUB 5100: RETURN 

7500 REM INVENTORY 

7510 F=0:PRINT"You are holding s " : FOR N= 

1 TO 18 

7520 IF 0P(N)=0 THEN F=l : NOUN-N: GOSUB 51 
00 

7530 NEXT N:PRINT:IF F=0 THEN PRINT"noth 
i ng" 

7599 RETURN 

7600 I*="":PRINT:PRINT" : "; 

7610 A*=INKEY*:IF A*<>"" THEN GOTO 7610 
7620 A*=INKEY*:IF A*="" THEN GOTO 7620 
7625 IF A*>="a" AND A*< = "z" THEN A$=CHR<* 
(ASC(A*)-32) 

7630 IF ASC(A*)=I3 AND LEN(I*)>0 THEN PR- 
INT: RETURN 

7640 IF ASC(A*)<>127 AND LEN(I*)<30 THEN 
I*=I*+A*:PRINT A* ?: GOTO 7610 
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7650 IF ASC(A*)<>127 THEM GOTO 7610 

7660 IF LEN(I*)=0 THEN GOTO 7600 

7670 I $=LEFT$ ( I * , LEN < I * ) - 1 > s PR I NT CHR* ( 8 

);" " ;CHR*(S) ; sGOTO 7610 

7700 IF NOUN=0 THEN PR I NT "Give what ?":R 

ETURN 

7710 IF M0UNO2 AND N0UIMO7 AND N0UNO9 

AND N0UNO4 AND N0UNO12 THEN PRINT" It's 

returned to you": RETURN 
7720 IF PL0CO17 THEN GOTO 7750 
7730 IF N0UNO7 AND N0UNO12 THEN PRINT" 
The guard recognises the stolen goods an 
d promptly kills you-": GOTO 8990 
7740 PRINT"The guard snatches your bribe 

and opens the gate" : OP (NOUN) =-1 : ROUTE < 1 
7, 2) =18: STUNT (17) =0: RETURN 
7750 IF PL0C<11 OR PL0O14 THEM PRINT"Th 
ere is nobody here who wants anything" : R 
ETURN 

7760 IF N0UN=4 THEN PRINT"The princess t 
hanks you kindly -for the food and looks 
much better ": QD$ (4) =="a beautiful, health 
y looking pr 
i ncess" : PF~1 
7770 OP (NOUN) =-1 : RETURN 

7800 IF N0UN=0 THEN PR I NT "but who ?"::RET 
URN 

7810 IF N0UIMO15 AND N0UNO16 THEN PRINT 
"You can't. ": RETURN 

7820 IF 0P(N0UN)OPL0C THEN PR I NT "You ca 
n't.": RETURN 

7830 IF N0UN=15 THEN PR I NT "The kings esc 
ort instantly rises from his light slumb 
er and despatches you with one blow of h 
is sword": GO 
TO 8990 

7840 IF 0P(5)=0 THEN PRINT"The guard swi 
rigs his mace and your knife breaks": OP (5 
)=-l: RETURN 

7850 PRINT"The guard hits you over the h 
ead and knocks you out. He takes the pri 
ncess back to the tower" 

7860 0P(3)=14:0D$(3) ="A very distressed 
princess" : RETURN 

7900 IF N0UNO0 THEN PR I NT "O.K. '" 5 0Df> ( 
NOUN); "' ": RETURN 
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7910 IF N*="CPC" AMD PL0C=6 THEN R0UTF(6 
, 3 ) =7 : GOSUB 6900 : RETURN 

7920 IF N*="464" AND PL0C=3 THEN ROUTE (3 
,2) =4: GOSUB 6900: RETURN 
7930 PRINT"0. K. ' " 5 N$; " : ' " : RETURN 
8000 IF NOUN=0 THEN PR I NT" Use what "■>": RE- 
TURN 

8005 IF 0PCIM0UN>OPL0C AND OP (NQUIMX' >0 T 
HEN PRINT"Use what ?": RETURN 

8010 IF NOUN=i THEN GOTO 8100 

8011 IF N0UN=4 THEN GOTO 8200 

8012 IF N0UN=8 THEN GOTO 8300 

8013 IF N0UN=13 THEN GOTO 8400 

8014 IF N0UN=18 THEN GOTO 8800 
8019 GOTO 8750 

8100 IF PL0CO15 THEM PRINT'The ground i 

s too hard here": RETURN 

8110 PR I NT "You dig in the soft earth and 

reveal somethi ng " : ROUTE (15,6) =48: GOSUB 
6900: RETURN 
8200 PR I NT "Someone, somewhere,, needed th 

at -food more than vou did": OP (4)= 1 : RETU 

RIM 

8300 PR I NT" You : ' 1 1 need to use some rope" 

: RETURN 

8400 IF PL0C=2 THEN PR I NT "The door to th 

e south is now open" : ROUTE (PLOC, 2) =16: RE 

TURN 

8410 IF PL0C=3 THEN PR I NT "A combination 

is needed to get into the garden shed":R 

ETURN 

8420 IF PL0C=6 THEN PRINT" You' 1 1 need th 

e password to get in here": RETURN 

8430 IF PL0C=18 THEN PRINT"There' s no wa 

y you can unlock a portcul 1 i s" : RETURN 

8440 PRINT"There's nothing to unlock her 

e": RETURN 

8750 PR I NT "You can't use that !": RETURN 

8800 PR I NT "You carefully tie the bucket 

to the rope and lower it down the well": 

FOR 1=1 TO 800: NEXT 1 

8810 PRINT" Your draw the bucket up again 

":F0R 1=1 TO 800: NEXT 1 : PRINT"There is s 

omething at the bottom of i t " : OP (7) =PL0C 

8820 PRINT" You let go of the rope and th 

e bucket falls back down the well": op <8) 
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■---1 : op ( 18) =-1 s PRINT n The ob j ect you -found 

1 ies gl i tte 
r i n g on the g r o u n d ' ' 

RETURN 

PR I NT : PR I NT : PR I NT s PR I NT s PR I NT : END 

REN SETUP ALL THE ARRAYS 

FOR L-l" TO 50s STUNT (L)=Os NEXT L 



8830 
8990 
9000 
9010 
9020 



STUNT (7) =1 : STUNT (22) =9: STUNT (28) =4: 



STUNT (31) =4 



=8 



e 



9030 STUNT (17) =5: STUNT (49) =7: STUNT (18)= 

9050 RESTORE 12000: FOR L«l TO 50 

9060 FOR N=l TO 6: READ ROUTE (L,N) 

9070 NEXT NsNEXT L 

9080 RESTORE 13000 

9090 FOR L=l TO 18: READ OP (L): NEXT L 

9100 0D*(1) S=,I A shovel i ready to dig the 

arth" sOD* (2>~"A pile of treasure ! gathers 

ci in the days of great empires" 

9110 od*(3)="A princess! as beautiful as 

any elven king's daughter could be" sod* ( 

4) -"Some food ! lovingly prepared and fit 

for royal ty" 

9120 od* (5) «"A knife! razor sharp, cursed 

by many, loved by few ,, sod$(6)="A large 
book! telling of the prowess of the kings 

escort" 
9130 od*(7)="A gold coin" s od* (8) =* n A buck 
etlof untold r iches" s ad* (9) ="many Silver- 
Pi ates ! inscribed with the mystical rune 

s E.P.N. S- " 

9140 od* ( 10) -"Notepaper (bearing the lege 

nd CPC" sod* (11) «"An ancient scrol 1 ! read! 

ng 'find my daughter and be richly rewar 

ded ? " 

9150 od*(12)~"A shining ringlof speed" so 

d*(13)="A key" sod* (14)=" A tree ! branches 

hang down low and the trunk reaches for 

the sky" 

9160 od*<15)~"The kings escort ! sleeping 

1 ightly"sod*< 16) ="A castle guard ! who loo 

ks very bored" 

9170 od*(i7)~"A well Iradiating magice ,, so 

d*(18)="A long well made rope" 

9210 dd*(l>~"in the centre of the castle 
courtyard" : dd* (2) ~"at the south end of 

the courtyard ! an opening leads further s 

outh" 
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9220 d d * ( 3 ) » " b y the en t r a n c: e i: o t h e w e s t 
tower the garden s h e d i s s o u t hi * t h e s h e d 
door i s open " s dd$ ( 4 ) = " i nsi de a garden s 
hed" 

9230 dd*(5)="at the bottom of a winding 
stairway ,, :dd*(6)="by the entrance to the 

east tower n :dd$(7)= n at the bottom of a 
staircase" 

9240 dd*(8)-"on a winding stairway":dd$( 
9)=dd*(8> :dd*(10>="at the top of a stair 
way! ? 464 ? is scrawled on the wall" 
9250 dd*(ll)= n on a steep stai rcase" s dd* ( 
12)=dd* (11) sdd*(i3)=dd*(il ) s dd* ( 14) ="at 
the very top of the east tower 1 ' 
9260 dd*<15)=" beside a soft patch of ear- 
th in the courtyard*a hole leads down" :d 
d*(16)="at the northern &nd of a guarded 

passage" 
9270 dd* (17) = M in a tunnel. An aging guar 
d blocks your way south ": dd$> ( 18) = M on the 

main East /West road of middle earth" 
9280 c!d*(19)-"on the road, a forest lies 
to the south ":dd* (20) ="on the road.. A la 
rge sign reads : Adventure in dbbcI of ex 
tension : 

: ROAD AHEAD CLOSED •■ " 

9290 dd*(21)= n on top of a large unclimab 
le cliff overlooking a vast panorama of 
places to adventure" z dd* (22) =" in a small 

clearing i n 

the forest" 
9300 dd* (23) ="on the edge of a vast fore 
st" :dd* (24)=" lost deep in a forest " sdd*( 
25)=" lost in a f or est " s dd* (26) =*" 1 ost wit 
hin a forest 

9310 dd*(27>="half way up a large treelth 

e tree extends upwards" s dd* (28) === n at the 

top of the tree , a small clearing is vis 

ible below" 

9320 dd*(29)="in the courtyard " s dd* (30) ^ 

"in the shade in the courtyard " s dd* (31 ) - 

"at the top of a tree in the courtyard t 

here is a pr 

incess in the east tower" 
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9330 dd*(32)="In the north-west corner o 

f the courtyard 1 ' : eld* (33) « M on stairs lead 

ing down into the dungeon" : dd$ (34) =" in t 

he guard roo 

m" 

9340 dd*(35)» : " In the banqueting hall ,! :dd 

*(36)= n At the east end of the banqueting 

hallla door leads north to the kitchen" 
9350 dd*(37)= s " In the castle ki tchen " : ddt> 
(38) -"At the north end o-f a north-south 
corridor" : dd*(39) ="in the servants quart 
ers" 
9360 dd*(40)="in the royal bedroom I there 

is a door to the west M : dd* (41 ) ="in the 
castle 1 ibrary n :dd$(42)="in the grand th 
rone room" 

9370 dd*(43)- n in a north-south corridor! 
cells lead east and west " s dd* (44) = M in an 

empty eel 1 " : dd* (45) =dd* (44) 
9380 dd$(46)="in a north-south corridor" 
:DD*(47)="in a cell " 

9390 dd* (48) ™"in a locked dungeon eel 1 ": 
dd*(49)="At the south end o-f a izarridor li 
sdd*(50)=dd*(49) 

9999 RETURN 

10000 DATA ! NORTH, N, ! SOUTH, S, ! EAST, E, ! WE 
ST, W 

10010 DATA 
10020 DATA 
10030 DATA 
10040 DATA 
10050 DATA 
10060 DATA 



DATA 
DATA 



DATA 

DATA* 

DATA 



10070 
10080 
K 

10090 
10999 
1 1000 

CESS, !F00D 
11010 DATA 
N, ! BUCKET 
11020 DATA 
, ! RING, SPEED 
11030 DATA 
LDIER, BORED 



UP, U, CLIMB, !D0WIM,D 
USE 

TAKE, GET 
DROP, PUT- 
LOOK 

INVENTORY, INV 
EXAMINE, ! SEARCH 
GIVE, BRIBE, i FIGHT, KILL, ATTAC 



SAY, SHOUT 
SHOVEL, SPADE, 



KNIFE, WEAPON, 
, ! SILVER, PLATES 



! TREASURE, IPRIN 
!B00K, ! GOLD, CO I 



NQTEPAPER , PAPER , NOTE , ! SCROLL 

! KEY 
TREE, TRUNK, ! ESCORT, i GUARD, SO 
, !WELL, !R0PE 
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11999 DATA* 

1 2000 DATA 29 , 2 , 6 , 3 , , , 1 , - 1 ., 30 , 0" , , ., 32 
j~l, 1,5,0,0 

1 20 1 O ' DATA 3 , , , O , , , , , 3 , , 8 , ,15, 30 

,-1,1,0,0 

1 2020 DATA ,0,0,6,11, , , ,, , ,9,5, , , 

, ,10,8, , , , , , 9 , , ., ,0,1 2 , 7 , , , , 

0,13,11 

1 2030 DATA 0,0,0,0,14,1 2 , O , , , ,0,1 3 , 35 

,6, 0, 29, 0, 0,2, 17,0, 0,0, 0, 16,0,0, 0,0, 0,-1 

,23,19,21,0,0 

1 2040 DATA ,23,20,18, „ ,0,23, ,19,0, „ 

0,23,18,0,0,0 

12050 DATA 25,26,24,26,0,0,18,24,26,25,0 

,0,25,26,24,25,27,0,26,24,25,26,27,0,25, 

24 , 26 , 25 , 27 , , , , , , 28 , 22 

12060 DATA 0, 0, 0, 0, 0, 27, 0,1,15, 32, 0, 0, 6, 

0,0,2, 31 , 0, 0, 0, 0, 0, 0, 30, 34, 3, 29, 0, 0, 0, 0, 

0,35,40,0,38 

1 2070 DATA 42 , 32 , , , ,0,39,15, 36 , 33 , ., 

, 37, 0, 0, 35, 0, 0, 0, 36, 0, 39, 0, 0, 0, 43, -1,-1, 

33 , , , 35 , 37 , , , 

1 2080 DATA 41,0,-1,-1, , , , 40 ,0,42, , O , 

0,34,41,0,0,0,38,46,44,45,0,0,0,0,0,43,0 

, 0, 0,0, 43,0, 0,0 

1 2090 DATA 43,49,47,-1,0,0 ,, , , , 46 , , , 

0, 0,-1 ,0,15, 0, 0,0,0,0,0, 0, 46, 0,0, 0, 0, 

13000 DATA 4,42,14,37,39,41,-1,29,35,50, 

0,48,47,30,34,17,29,29 



MINEFIELD 




It's a darned hard life for the little man who has been deserted 
by his fellow soldiers, in the middle of a mine field. See if you 
can help him reach the dug-out where his colleagues are 
hiding. 

The mines are randomly generated, so be careful of your 
moves. Don'tteli the little soldier but we believe, on very good 
authority, that when he reaches the safety of the dug-out he is 
going to be sent out on another mission. 

Every time he makes it through the minefield the number of 
mines increase and he must keep going until 



How to play 

Use arrow keys to move. When the inevitable overcomes your 
hero you will see a score on the screen and you may press the 
space bar to send the poor little beggar back into the field. 
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Programming hints 

Set the difficulty level when asked to do so. 
The program 



10 REM MINEFIELD 


20 GOSUB 550 


30 C=5 


40 D=l 


50 GOSUB 430 


60 SCORE=0 


70 MODE 


80 BORDER 13 


90 PAPER 13: PEN 5 


1 00 


LOCATE 1 , 1 


110 


PRINT" MINEFIELD SCORE 

II m 


1 20 

II . 


5 

LOCATE 1,25 : PRINT" 


1 30 


t 

PAPER 


140 


EVERY 4, 1 GOSUB 930 


150 


PEN 14 


160 


LOCATE 19,23 


170 


PRINT CHR*(203) 5 


180 


X=3:Y=3 


190 


XX=X:YY=Y 


200 


Q=DIF 


2 1 


CNQ-1 


220 


IF Q-O-0 THEN GOTO 210 


230 


SC0RE=SC0RE+10 


240 


IF IMKEY(8)=0 AND XXOl THEN XX = XX-1 


250 

1 

260 


IF INKEY(1)=0 AND XXO20 THEN XX=XX+ 


IF INKEY(0)=0 AND YY<>3 THEN YY=YY-1 


270 

1 

280 


IF INKEY(2)=0 AND YYO-24 THEN YY=YY+ 


IF XX=X AND YY-Y THEN GOTO 360 


290 


GOSUB 690 


300 


IF DD=231 THEN GOTO 830 


310 


IF DD=203 THEN GOTO 740 


320 


IF DD<>32 THEN GOTO 190 


330 


LOCATE X,Y: PRINT" " 



30 



LOCATE XX,YY:PEN 9 
PRINT CHR$<249> ; 
X=XX: Y=YY 
XX = INT(RND<l)*20+i) : 

GOSUB 690 

IF DD<>32 THEN GOTO 
PEN 8: LOCATE XX,, YY 
PRINT CHR*(231) 5 
GOTO 190 
30 REM SET DIFFICULY LEVEL 



340 

350 

360 

370 

+3) 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 



YY=INT (RND ( 1 ) *2: 



170 



MODE 
LOCATE 
PRINT" 

LOCATE 



1,4 

SET 
1,8 



THE DIFFICULTY" 



PR I NT "0 IS EASY' 
1,10 



LOCATE 

PRINT" 

K*=INKEY* 

IF K*<"0" OR K*>"9' 

DIF=50-5*(ASC(K$W 

RETURN 

REM PUT MACHINE CODE 
D JUSTED HI MEM 
560 MEMORY FRE(0>-&80 

MOHIMEM+1 

TA=HIMEM+&7F 

TH=INT(TA/256) 

TL=TA-256*TH 

POKE MC&CD 



HARDEST' 



THEN 
SC ( "O 1 



GGTU 
) ) 



; i o 



JUST ABOVE RE-A 



570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 



MC+3 
MC+4 
MC+5 
MC+6 



& 3 2 
TL 
TH 
?<C9 



POKE MC+ 1,&60 

POKE MC+2,&BB 

POKE 

POKE 

POKE 

POKE 

RETURN 

REM READ FROM SCREEN (XX,YY) INTO DD 

LOCATE XX,YY 

CALL MC 

DD=PEEK(TA) 

RETURN 

REM REACHED EDGE OF MINEFIELD 

LOCATE 1,8 

PRINT" YOU HAVE ESCAPED " 

LOCATE 1,10 
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780 PRINT" YOU SCORE : 

790 LOCATE 15, 10 

800 PRINT SCORE 

810 GOTO 890 

820 END 

830 REM HIT A MINE => KILLED 

840 PAPER 4: PEN 15 

850 LOCATE 1,8 

860 PR I NT "YOU HAVE BEEN KILLED" 

870 LOCATE 1, 10 

880 PRINT" YOU SCORE 

890 IF INKEY*=" " THEN GOTO 890 

900 IF INKEY$<>" " THEN GOTO 900 

910 GOTO 60 

920 END 

930 C=C+D:IF C=25 OR C=4 THEN D=~D::GOTO 

930 

940 INK 8,C 

950 RETURN 



ASTEROID STORM 




Your force field defences have disintegrated; your lasers have 
overheated and you are now approaching a meteroid belt. 

We don't hold out much hope for your survival as it's only a 
matter of time, and manual dexterity, as to how long you can 
keep going. 

Your cruiser is moving down the screen and a continuous 
wave of rocks and star particles are rising to meet you so good 
luck. 



How to play 

As you have no defence systems left you must try to stay alive 
by moving left and right using arrow keys. 
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Programming Hints 

To slow up the asteroids you can insert a delay as follows: 

Line 195 FOR Z= 1 to 30: NEXTZ 

The Program 



10 REM ASTEROID STORM 

20 GOSUB 410 

30 REM NEW PLAYER 

40 SC0RE=0 

50 MODE 1 

60 BORDER 13 

70 SHIPX=18 

80 YY=1 

90 SHIP$=" "+CHR*<245>+" " 

100 PAPER 

110 INK 0,13 

120 CLS 

130 REM MAIN LOOP 

140 A=INT(RND(1)*35+1) 

150 B=INT<RND<1)*<38-A)+1> 

160 PEN 3 

170 LOCATE A, 25: PRINT"*" 5 

180 LOCATE B,2'5: PRINT"*": LOCATE 40, 25: PR 

INT" " 

190 REM MOVE SHIP 

200 SC0RE=SC0RE+15 

210 IF INKEY<8)=0 AND SHIPX >1 THEN SHIPX 

=SHIPX-1 

220 IF INKEY(1>=0 AND SHIPX-C38 THEN SHIP 

X=SHIPX+1 

230 XX=SHIPX+1 

240 BOSUB 550 

250 IF DD=42 THEN GOTO 300 

260 LOCATE SHIPX, 1 

270 PEN 1 

280 PRINT SHIP* 

290 GOTO 130 

300 REM KILLED BY A ASTEREORIC COLLISION 

310 PAPER 1 

320 PEN 3 
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330 
340 
350 
the 
360 
370 
ORE 
380 
390 
400 
410 



LOCATE 16,6:PRINT"0h Dear," 

FOR Q=l TO 1000: NEXT Q 

LOCATE 8, 10:PRINT"Another one bites 

dust" 

FOR q=l TO 1000; NEXT q 

LOCATE 10, 14: PRINT "YOU SCORED : " ; St 



IF INKEY*=" 
IF INKEY*<>" 
GOTO 30 

REM PUT MACHINE CODE 
DJUSTED HIMEM 
420 MEMORY FRE(0>-&80 
430 MC=HIMEM+1 

TA=HIMEM+2<7F 
TH=INT(TA/256) 
TL=TA-256*TH 
POKE MC,&CD 

MC+1,&60 

MC+2,&BB 

MC+3,&32 

MC+4,TL 

MC+5,TH 

MC+6„&C9 



THEN GOTO 380 
THEN GOTO 390 



JUST ABOVE RE--A 



440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
530 



POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

RETURN 

LOCATE XX, YY 

CALL MC 

DD=PEEK(TA> 

RETURN 



WORDGRAMS 




If you are tired of zapping, crunching and powing the aliens of 
the Universe perhaps you would like to try something a little 
more cerebral. 

Your Amstrad will choose a word at random, from a selection, 
and scramble the letters on the screen. You must determine 
the word and enter your answer. 



How to play 

Type in the word you think has been scrambled and press 
ENTER. 



You will be given a selection of ten words and will receive 
points based on your efforts. 
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Programing Hints 

You can alter the words by changing the data in lines 290 
onwards but remember, if you change the number of words, 
you must change the items in Line 280. 

The Program 



10 1 


*EM ANAGRAMS 




20 MODE 2 




30 RESTORE 




40 READ N 




50 FOR L=l TO II\|T(RND(l)*N-i-l> 




60 READ W* 




70 NEXT L 




80 Af>=W$ 




90 FOR L=l TO 30 




1 00 


S=INT (RND ( 1 ) #LEN <W$) +1 > 




110 


A*=MID* (A$, 3, 1 ) +L.EFT* ( A*, S-. 


L)+MID$(A 


$,3+1,255) 




120 


NEXT L 




130 


CLSrLOCATE 1 , 10: PRINT" The anagram is 

t * 


140 


PRINT a* 




150 


LOCATE 1, 16 




160 


PRINT"What is the hidden word : 


170 


LOCATE 26, 16 




180 


INPUT g* 




190 


IF G$="" OR LEN<G*> >15 THEN 


GOTO 150 


200 


IF G*=W* THEN GOTO 250 




210 


LOCATE 1,20 




220 


PRINT"WRONG ... BAD LUCK" 




230 


FOR 0=1 TO 1500: NEXT Q 




240 


GOTO 30 




250 


LOCATE 1,20 




260 


PR I NT "CORRECT - . . WELL DONE 


t 


270 


GOTO 230 




280 


DATA 40 




290 


DATA AMSTRAD, COMPUTER 




300 


DATA TELEVISION, COLOUR 




310 


DATA CINEMA, BUNGALOW 




320 


DATA SUITCASE, CASSETTE 
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330 DATA CARPET, CEILING 

340 DATA MATHEMATICAL 

350 DATA GYROSCOPE 

360 DATA AERIAL, GENERATOR 

370 DATA GLASS, NEEDLE 

380 DATA SIENNA, VIENNA 

390 DATA CHARISMATIC, REMOTE 

400 DATA PICTURE, ENCYCLOPEDIA 

410 DATA RABBIT, A ARDVARK 

420 DATA STANDARD, TELEPHONE 

430 DATA BOXES, BOARD 

440 DATA HEATER, AMPLIFIER 

450 DATA BASIC, VIDEO 

460 DATA DIFFICULT, STRANGE 

470 DATA CARAVAN, ALARM 

480 DATA SPADE, SKIER 

490 DATA HOARSE, FROST 



DRIVING TEST 




You have been hurtling down country lanes in your new 
sports car, trying to impress your lady friend by your side, 
only to find that your brakes have gone and there is a steep 
incline before you. 

Try to stay on the road — you know it makes sense. 



How to play 

Steer the car using the arrow keys to move left and right. 
When you finally run out of road you will see a score on the 
screen. 



39 



The program 



10 REM DRIVING TEST 
20 DEFINT A-Z 
30 MODE 1 

40 SYMBOL 255 , 2.9? , &FF , &99 , &3C , S^C , S/RD , */F 

F,&99 • . . . 

50 GOSUB 440 

60 LOCATE 5,5: IMPUT"DIFFICULTY (4-7) "3D 

70 IF D<4 OR D>7 OR DO I NT (D) THEN GOTO 

60 

SO R0AD*=CHR*(217)+CHR*(207> 

90 FOR L=l TO D 

100 ROAD*=ROAD*+" " 

110 NEXT L 

1 20 ROAD*=ROAD*+CHR$ ( 207 ) +CHR$ (219) 

130 RMAX=37-D 

140 CLS 

150 SC=0 

160 BORDER 21 

170 CAR=8:R0AD=12 

180 LOCATE 1,25: FOR L=l TO ROAD: PRINT Cl-I 

R$(207) ; :NEXT L 

190 LOCATE ROAD+D+ 1,25: FOR L=l TO 2B-D:P 

RINT CHR*(207) 5: NEXT L 

200 PRINT 

210 XX=CAR:YY=2: GOSUB 580 

220 SC=SC+1 

230 IF DDO-32 THEN GOTO 320 

240 IF INKEY(8)=0 AND CAR>1 THEN CAR==CAR 

-1 

250 IF INKEY(1)=0 AND CAR<40 THEN CAR=CA 

R+l 

260 LOCATE XX,1:PRINT CHR$(255); 

270 IF RND(1)>0.4 AND R0AD>1 THEN ROAD=R 

OAD-1 

280 IF RND(1)>0.4 AND ROAD<RMAX THEN ROA 

D=R0AD+1 

290 LOCATE ROAD, 25: PRINT ROAD*: PRINT 

300 SOUND 1 , 1 000 ,3,7,0,0,5 

310 GOTO 210 

320 FOR L=15 TO STEP -1 

330 BORDER L*1.5 

340 SOUND 1,0,30,7,0,0,L 



FOR Q=l 1 


-0 5 


PLOT 


310, 


200 


DRAW 


RND<1>*639+1 


NEXT 


Q 




NEXT 


L 




LOCATE 1, 


25: PRINT 



40 

350 

360 

370 DRAW RND ( 1 ) *639+ 1 , RND ( 1 ) *400+ 1 

380 

390 

400 LOCATE 1,25: PRINT" YOU S 

CORED : ";SC 

410 IF INKEY*=" " THEN GOTO 410 

420 IF INKEY*<>" " THEM GOTO 420 

430 GOTO 60 

440 REM PUT MACHINE CODE JUST ABOVE READ 

JUSTED HI MEM 

450 MEMORY FRE<0>-S<80 

460 MC=HIMEM+1 

470 TA=HIMEM+&7F 

480 TH=INT(TA/256) 

490 TL=TA~-256*TH 

500 POKE MC&CD 

510 POKE MC+1,?<60 

520 POKE MC+2,&BB 

530 POKE MC+3,&32 

540 POKE MC+4,TL 

550 POKE MC+5,TH 

560 POKE MC+6,S<C9 

570 RETURN 

580 LOCATE XX,YY 

590 CALL MC 

600 DD=PEEK(TA) 

610 RETURN 



SPACE TREK 




It's time to bravely go where no man has gone before, or 
something like that anyway. 

We have supplied you here with Photon Torpedoes, Phaser 
Weapons and long and short range scanners but, of course, 
you are still going to have to deal with the Klingons yourself. 



How to play 



You will be given a 'menu' to choose from when you begin. 
Once you have made your choice the playing instructions will 
appear on the screen. 
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The Program 



10 REM SPACE-TREK 

20 GOSUB 3000 

30 GOSUB 3500 

40 EN=5000 

50 SD=0 

60 NF-10 

100 REM MAIN TURN LOOP 

105 IF EN<0 THEN GOTO 10000 

107 SD=SD+1.04 

110 MODE 1: PAPER 0: BORDER 2; CI. 

115 PEN 1 

120 LOCATE 8 ,4 -.PRINT "SPACE TRE1- 



COMMANDS 



130 LOCATE 7, S: PRINT"*" 



140 LOCATE 1,11 

150 

160 

170 

180 

190 

200 

2 1 



PRINT" (1) 
PRINT" (2) 
PRINT" (3) 
PRINT" (4) 
PRINT" (5) 
PRINT" (6) 
PRINT" (7) 
a*=INKEY* 
EN=EN+1: IF 



Warp Engines" 
Impulse Engines" 
Phaser s" 

Photon Torpedoes" 
Dock with Starship' 
Long range scan" 
Short, range scan" 



211 

213 EN=EN+1:IF EN>5000 THEN EN=5000 

215 IF KS=0 THEN LOCATE 5, 21 : PRINT"CONDI 
TION GREEN": GOTO 218 ELSE LOCATE 5, 21: PR 
INT"CONDITION RED": BORDER 3 

216 IF RND<0.06*KS THEN GOSUB 9000 

218 LOCATE 15, 19: PRINT"SHIP ENERGY : "EN" 



219 IF A*<"1" OR A*>"7" THEN GOTO 211 

220 ON ASC(A*)-ASC("0" ) GOSUB 4000,5000, 
6000, 7000, 8000, 1000, 2000 

299 GOTO 100 

1000 REM LONG RANGE SCAN 

1010 CLS 

1020 A=SX-1:C=SX+1 

1030 B=SY~1:D=SY+1 

1040 IF A<1 THEN A=l ELSE IF CMO THEN C 

= 10 

1050 IF B<1 THEN B=l ELSE IF D>10 THEN D 

= 10 
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1055 LOCATE 6,5 

1060 FOR L=A TO C 

1070 PRINT ,, ***"CHR*<L+47) "*** n $ 

1080 NEXT L 

1090 LOCATE 1,6:: FOR L-B TO D 

1 1 00 PR I NT " " ? s FOR N=A TO C : PR I NT " * 

*"5 sMEXT Ns PRINT 
1105 PRINT" "CHR*<L+47> n " ; : FOR N=A TO 

C s PR I NT " * * " ; s NE X T N s PR I NT 
1 1 08 PR I NT !! "js FOR NNA TO C s PR I NT " * 

*"5 :NEXT N;; PRINT 
1110 NEXT L 

1120 PRINT" ";:FOR L»A TO CsPRINT"** 
*****" 3 sNEXT L 

1125 LOCATE 4, 1 : FRINT"<stars , bases 9 k 
I i ngans>" 
1 130 FOR L^A TO C 
1140 FOR N^B TO D 

1 1 45 SOUND 1 , I NT ( RND*500 ) +50 , 1 
1 1 50 LOCATE 8+ ( L-A ) *7 , 7+ ( M~B > *3 
1 160 G*=STR*(G(L S M) ) : G*=RIGHT* <G*, LEN <G* 
) -1) :G$^RIGHT$("00"+G$,3> 
1165 PRINT G$ 
1170 NEXT M:NEXT L 
1 180 SOUND &81,0 

1200 LOCATE 6, 21 : PRINT"<SPACE> to exit" 
1210 IF INKE.Y*= M " THEN GOTO 1210 
1220 IF INKEY*<>" " THEN GOTO 1220 
1299 RETURN 

2000 REM SHORT RANGE SCAN 

2010 CLS: LOCATE 6 ? 6: PR INT" **0** 1**2**3** 
4**5**6**7**8**9**" 
2020 FOR L=0 TO 9s LOCATE 3,L + 7 
2030 PRINT STR*(L) " * 

*" 
2040 NEXT L 
2050 LOCATE 6, 17 
2060 PR I NT "***************************** 

2065 PAPER 1:PEN 

2070 FOR L=l TO 10: FOR M=l TO 10 

2075 SOUND 1 , L*M*4+200 ? 10 

2080 LOCATE 4+L*3 ? 6+M 

2090 IF S(L,M>=100 THEN PRINT" * " : GOTO 

2140 

2100 IF S(L,M)=™1 THEN PRINT"< ! >" : GOTO 2 

140 
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2110 

140 

2 1 20 

2130 

2140 

2142 

2145 

2150 

2160 

2170 

2199 

3000 

30 1 

3020 

3030 

3040 

3060 

3070 

1) 

3080 

3090 

3 1 00 

3110 

3 1 20 

3130 

3140 

1) 

3150 

3 1 60 

3199 

3500 

3510 

3520 

L 

3530 

3540 

3543 

3546 

1) : IF 



IF S(L,M>=10 THEN PRINT' 



GOTO 



THEN PRIMT"<=>" 
THEN PRINT" 
L 
1 

PR I NT "< SPACE > to £ 
" THEN GOTO 2160 
' " THEN GOTO 2170 



IF S(L,M)=1 

IF S(L,M)=0 

NEXT M:NEXT 

PAPER 0:PEN 

SOUND &81,0 

LOCATE 6,21 

IF INKEY*=" 

IF INKEY*<> 

RETURN 

REM SETUP THE GALAXY 

DIM 0(10, 10) ,S(10, 10) 

NK=30 : D I M K X ( NK ) , K Y < NK ) 

SX=5:SY=5 

X=5: Y=5 

FOR N=l TO NK 

L=INT(RND(1)*10+1) 



:it" 



M=INT(RND(1)*10+ 



G(L,M)=G(L., M)+l 

NEXT N 

FOR L=l TO 10: FOR M=l TO 10 

G(L,M)=G(L,M)+100*INT(RND*5) 

NEXT Ms NEXT L 

FOR N=l TO 3 

L= I NT < RND ( 1 ) * 1 0+ 1 ) : M= I NT ( RND ( 1 ) * 1 0+ 

G(L,M)=G(L,M)+10 

NEXT N 

RETURN 

REM GENERATE THIS SECTOR 

P=G(SX,SY> :FOR L=l TO 10 

FOR M»l TO 10sS<L,M)=0:NEXT Ms NEXT 

S(X,Y)=-1 

IF P<100 THEN GOTO 3550 

p=p-ioo 

L=INT(RND(1)*10+1) :M 
S(L,M)<>0 THEN GOTO 



INT(RND(1)*10+ 

3546 



3549 S(L,M) =100: GOTO 3540 

3550 IF P<10 THEN KS=P:GOTO 3560 
3553 P=P-10 

3556 L=INT (RND ( 1 ) *10+1 ) : M=INT (RND ( 1 ) #10+ 
1)*IF S(L,M)<>0 THEN GOTO 3556 

3559 S(L,M)=10:G0T0 3550 

3560 IF P=0 THEN RETURN 
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3570 P=P-1 

3580 L= I NT ( RND ( 1 > * 1 0+ 1 ) : M= I NT ( RND ( 1 ) * 1 0+ 

1):IF S(L,M)O0 THEN GOTO 3580 

3590 S(L,M)=1:G0T0 3560 

3599 RETURN 

4000 REM WARP ENGINES 

4010 IF EN<1000 THEN CLS: LOCATE 1,11: PR I 

NT" Warp engines out o-f commi ssi on " : FOR L 

=1 TO 800: NEXT L: RETURN 

4020 CLS: LOCATE 1 , 9: PR INT" SET TARGET SEC 

TOR" 

4030 LOCATE 6, 13: PRINT" X :: , Y : 

4040 L=SX-1:M=SY-1 

4050 LOCATE 1 1 , 1 3 : PR I NT L : LOCATE 18,13s P 

RINT M 

4060 A*=INKEY*: IF A*="" THEN GOTO 4060 

4065 IF A*=CHR*(242) THEN L==L 1 

4070 IF A$=CHR$(243> THEN L==L+1 

4080 IF A*=CHR*(240) THEN M«M 1 

4090 IF A*=CHR*<241> THEN M=M+1 

4100 IF A*=CHR$<224> THEN GOTO 4200 

4110 L-(L+10) MOD 10:M=(M+10) MOD 10 

4115 PRINT: PR I NT "Energy used : " ; : DX=L~ <S 

X-l) :DY=M-(SY-1) : P=20*INT <DX*DX+DY*DY> :P 

RINT P; " 

4120 GOTO 4050 

4200 IF EN<P THEN PRINT" INSUFFICIENT ENE 

RGY REMAINS": FOR L=l TO 800: NEXT LsRETUR 

N 

4220 FOR N=50 TO 200 STEP 5: SOUND 1,N,25 

: SOUND 2,N+2, 15: SOUND 3, N+4, 10: NEXT N 

4230 PR I NT "YOU ARE NOW IN SECTOR < "L" , 

II jvj H J II 

4240 SX=L+1:SY=M+1:F0R L=l TO 800: NEXT L 

4250 EN=EN-P:GOSUB 3500: RETURN 

5000 REM IMPULSE ENGINES 

5010 IF EN<500 THEN CLS: LOCATE 1,11:PRIN 

T" Impulse engines out of commi ssi on" : FOR 

L=l TO 800: NEXT L: RETURN 
5020 CLS: LOCATE 1 , 9: PR I NT "SET TARGET COO 
RD I NATES" 

5030 LOCATE 6,13:PRINT" X : , Y : 
5040 L=X-1:M=Y~1 

5050 LOCATE 11, 13: PR INT L: LOCATE 18,13sP 
RINT M 
5060 A*=INKEY*: IF A*="" THEN GOTO 5060 
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5065 IF A*=CHR*(242) THEN L=L-1 

5070 IF A*=CHR*(243) THEN L=L+i 

5080 IF A*=CHR*<240) THEN M=M-1 

5090 IF A*=CHR*(241) THEN M=M+1 

5100 IF A*=CHR*<224) THEN GOTO* 5200 

5110 L=(L+10) MOD 10:M=(M+10) MOD JO 

5115 PR I NT : PR I NT " ENERGY USED : " ; : D X =»L- ( X - 

1) :DY=M-(Y-1> :P=3*INT<DX*DX+DY*DY> : PRINT 
p. .. 

5120 GOTO 5050 

5200 IF EN<P THEN PRINT" INSUFFICIENT FNF 

RGY IS LEFT": FOR L=l TO 800:NFXT L:PFTUP 

M 

5220 PR I NT "YOU HAVE MOVED : " 
5230 S ( X , Y ) =0 : X =L+ 1 : Y=M+ 1 

5240 IF S < X , Y ) < >0 THEN PR I NT : PR I NT " I 

N FLIGHT COLLISION..." ELSE GOTO 5500 

5250 IF S(X,Y>=1 THEN PRINT".. WITH A KLI 

NGON" : EN=EN- 1500: GOTO 5500 

5260 IF S(X,Y)=10 THEN PRINT" .. WITH A ST 

ARBASE " : GOTO 8500 

5270 IF S ( X , Y ) = 1 00 THEN PR I NT " . . W I TH A S 

TAR. . " : EIM-0: GOTO 5500 

5500 S<X,Y)=-1:EN=EN-P:F0R L=l TO 600: NF 

XT L: RETURN 

6000 REM PHASERS 

6005 DEG 

60.10 CLS: LOCATE 1 , 9 s PR I NT "PHASER WEAPONS 

6020 LOCATE 1 , 1 1 : PR I NT " BEAR I NG : 

" : LOCATE 11,11:1 NPUT BR 
6030 IF BR<0 OR BR>360 THEN SOUND 8*81,50 
0,50: FOR |_=1 TO 800: NEXT L:GOTO 6020 
6040 LOCATE 1 , 14: PRINT "ENERGY : 

": LOCATE 11, 14: INPUT EP 
6050 IF EP<0 OR EP>EN THEN SOUND &S 1,400 
,50: FOR L=l TO 800: NEXT L:GOTO 6040 
6060 TX=X:TY=Y:CX=SIN(BR) :CY=COS(BR> 
6080 TX=TX+CX:TY=TY+CY 

6085 IF TX<1 OR TX>10 OR TY< 1 OR TYMO T 
HEN GOTO 6200 
6090 P=S ( I NT ( T X+0 . 5 ) , I NT ( TY+0 . 5 ) ) : I F P=0 

THEN GOTO 6080 
6100 IF P=10 THEN PRINT"YOU JUST DESTROY 
ED A STARBASE":6(SX,SY)=G(SX,SY)-10:S<IN 
T(TX) , INT (TY) )=0: GOTO 6080 
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6110 IF POi THEN GOTO 6120 
6112 PRINT" YOU HIT A KLINGGN" 
6115 IF RND(1)*500<EP THEN PR I NT "AND YOU 
DESTROYED IT" .- G <SX, SY) =G (SX , SY) -1 : S (INT 
(TX+O. 5) , INT (TY+O. 5) ) =0: NK=NK- J : KS-KS--1 
6120 GOTO 6080 

6200 EN=EN--EP;FOR L=l TO 1000:; NEXT I -RET 

URN 

7000 REM PHOTON TORPEDOES 

7010 CLS: LOCATE 1 , 9: PRINT "PHOTON TORPEDO 
ES" 

7020 LOCATE 1 , 1 1: PRINT'NUMBER TO FIRE : 

" : LOCATE 17,11:1 NPUT PP 
7030 IF PP<1 OR pp>NP THEN SOUND &B 1,400 
,50: FOR L=l TO 800: NEXT L:BOTQ 702O 
7040 MP=NP-PP 
7050 FOR M=l TO PP 
7060 PR I NT "PHOTON TORPEDO "M" FIRED AND 

RUNNING ";:FOR L=l TO 10: PRINT" . "i 

: SOUND 1, 15#L+100:NEXT L:FOR L=l TO 60o|; 
NEXT L 

7065 PRINT 

7070 IF RND < 1X0. 3 THEN PRINT" IT MISSED. 

" : GOTO 7200 

7080 IF Q(SX,SY)/10=INT(G(SX,SY>/10) THE 

N PR I NT "THE TORPEDO RUNS OUT INTO SPACE" 

:GQTO 7200 

7090 PR I NT "HOMING DEVICES ACTUATED" 

7 1 00 A= I NT ( RND ( 1 ) * 1 0+ 1 ) : B- I NT ( RND ( 1 ) * 1 0+- 

1):IF S(A,B)<>1 THEN GOTO 7100 

7110 PR I NT "YOU HIT A KLINGON" : IF RND < 1 X 

0.75 THEN PR I NT "AND YOU DESTROYED IT":S< 

A , B ) =0 : KS«KS- 1 : G ( SX , SY ) =G ( SX , SY ) - 1 : GOTO 

7200 

7120 PR I NT "BUT THE KLINGON' S DEFLECTORS 

REDUCED THE DAMAGE" 

7200 NEXT M 

7210 FOR L=l TO 800: NEXT L 

7299 RETURN 

8000 REM DOCK WITH STARBASE 

8010 CLS: LOCATE 1 , 6: PRINT "DOCKING COMPUT 

ER O.S. 0. 1" 

8020 PRINT"=======================-= " 

8030 LOCATE 1 , 9: PRINT", . . A LITTLE UNRELI 

ABLE" 

8040 LOCATE 1 „ 1 1 : FOR L=l TO 20+ I NT (RND (1 

)*20) 
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8050 A- 1 NT ( RND < 1 ) * 1 0+ 1 > ; B= I NT < RND ( 1 ) * 1 0+ 
1) 

8060 IF S<A,B>=10 THEN PRINT "DOCKED SUCC 
ESSFULL Y " : EN=5000 s NP= 1 : PR I NT : PR I NT " ENER 
BY AND PHOTON TORPS. RENEWED" 
8070 NEXT L 

8080 FOR L=l TO 800 STEP 4: SOUND 1,L„ 2 
8090 NEXT L 
8099 RETURN 

9000 REM A KLINGON ATTACKS 
9010 LOCATE 1 , 21 : PRINT" A KLINGON PHASER 
IS FIRED AT YOU" 
9013 FOR L=15 TO STEP -1 
9015 SOUND 1,0, 10, L, 0,0, 8: NEXT L 
9020 IF RND < IK 0.4 THEN PRINT" IT MISSES" 
:FOR L=l TO 600: NEXT L: LOCATE 1,21s PR I NT 

" : RETUR 
N 

9030 PR I NT " I T H I TS YOU . . . " : DM- 1 NT < RND ( 1 ) 
#300+400): FOR L=l TO 600: NEXT L 
9040 EN=EN--DM 
9050 LOCATE 1,21: PRINT" 

" : RETURN 
10000 REM SHIP HAS BEEN DESTROYED 
10010 CLS: LOCATE 1 , 9: PRINT" YOUR SPACE SH 
IP HAS RUN OUT OF ENERGY" 

10020 PR I NT: PR I NT "YOUR LIFE SUPPORT SYST 
EMS HAVE FAILED" 

10030 PR I NT: PR I NT" ALL PASSENGERS AN 

D CREW" 

1 0040 PR I NT : PR I NT " . . . ARE M I SS I NQ ... PRE 

SUMED DEAD" 

10050 FOR L=l TO 600: NEXT L 

10060 PRINT n THE STARDATE IS : " ; SD 

10070 LOCATE 1,21: PR I NT" AGAIN (Y/N) ? 

II 

10080 A*=INKEY*:IF A*<>"" THEM GOTO 1003 



10090 A*=INKEY*: IF A*=" M THEN GOTO 10090 

10100 IF A*="Y" OR A$="y n THEN RUN 

10110 IF A*<> n N" AND A*<> ,, r." THEN GOTO 1 

00 SO 

10120 CLS: LOCATE 1,5: END 
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We have been saving this monstrous program until the 
middle of the book as we didn't want to scare you with it's 
length or it's content. 

You may have heard of the highly popular Dragons and 
Dungeons game but have never played it - until now. 

You will begin by finding yourself on the third level of a 
dungeon and, should you proceed into the heart of the maze, 
you will meet twenty one different types of monsters. Lurking 
in the lower depths are trolls, ores, snakes, dwarfs, wolves, 
newts, many others and, most horrible of all, a Dragon 
capable of inflicting fatal wounds. 

On your side you have help, if you can find your way, from a 
fire demon and from several types of spells. Be careful how 
you use the spells, however, as they can sometimes break 
down and leave you deeper in the ...... 



50 

How to play 

Press the first letter of the command of your choice as the new 
menu is offered to you. 

You will be told of the consequences of your choice and then 
you are on your own. 

By the way, if you live, a higher score will be given. 
The Program 



10 REM DRAGON DUNGEON 

15 MODE 2 

20 GOSUB 2900:G0SUB 1600:1*="" 

25 GOTO 100 

30 FOR ZQ=1 TO 500: NEXT ZQ: RETURN 

100 REM MAIN NEW LOCATION LOOP 

110 GOSUB 2500: GOSUB 30 

115 IF LV=0 THEN GOSUB 1500: GOTO 900 

120 IF MF=1 THEN GOTO 200 

130 GOSUB 1000 

140 GOSUB 3400: IF I*="L" THEN PRINT"That 

sounds interesting": GOSUB 30: GOTO 130 

142 IF I*="P" THEN PRINT"ho hum " : GOS 

UB 30: PRINT" la di da...": GOSUB 30:MF=1:P 
M=PM+INT (RND < 1 > *4> : PS=PS+4: GOTO 200 
144 IF I*="T" THEN MM=1 : PRINT"Thi s can b 
e a little unpredi ctabl e" : GOSUB 30: GOSUB 

2800: GOTO 100 
150 F=0:FOR L=l TO LEN(MO*):IF MID* < MO*, 
L, 1)=I* THEN F=l 

160 NEXT L:IF F=0 THEN PR I NT" You can't m 
ove in that direction" : GOSUB 30: GOTO 130 
170 IF I*="U" THEN LV=LV-1 : PRINT" You' 1 1 
get out of here yet": GOTO 195 
180 IF i*="D" THEN 1 v=l v+1 : PRINT"Of f goe 
s the hero, in search of yet more advent 
ure": GOTO 195 

190 PRINT"The road goes ever on, anon." 
195 GOSUB 30: GOTO 100 
200 REM Monster encountered here 
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210 PR I NT "You just bumped into something 
":G0SUB 30 

220 IF RND(1)<0.02 THEN d-f =2: GOSUB 3000:: 
PR I NT "You' re not going to believe this, 
it's the DRAGON" .-GOSUB 30: PR I NT "Have -fun 

" : GOTO 

240 

230 GOSUB 1700 
240 GOSUB 30 

250 GOSUB 1100: GOSUB 3400: IF i$<>"5" AND 
I*<>"D" AND I*<>"R" AND I$<>"M" THEN GO 
TO 250 

260 IF I*="S" THEN WP=1: GOSUB 2000 
270 IF I*="D" THEN WP=2: GOSUB 2000 
280 IF I*="R" AND RNDC1X0.35 THEN PRINT 
"You got away -from ": PRINT" the " 5 DJ4>: GOT 
450 

290 IF i*="R" THEM PR I NT "You couldn't ge 
t away from it" 
300 IF i*<>"M" THEN GOTO 320 
310 GOSUB 2200: ON op GOSUB 2800,2700,210 


320 IF m-fOO THEN GOTO 490 
330 IF d-f =2 THEN d-f = l: GOSUB 1200 
340 GOTO 100 

450 REM Player le-ft DRAGON wounded 
460 IF df=2 THEN df=0:ds=ms:dm=mm 
470 GOTO 100 

490 IF d-f =2 THEN df=0:ds=ms:dm=ram 
500 REM Monster attacks player 
510 GOSUB 3300 

520 IF PSOO THEN GOSUB 1400: GOTO 900 
590 GOSUB 30: IF mf >0 THEN GOTO 250 
600 IF d-f =2 THEN df =0: ds=ms: dm=mm 
610 GOTO 100 
900 REM End o-f game routine 

999 END 

1000 REM Main menu 
1010 MODE 2 

1020 PRINT"Choose what you want to do" 

1040 LOCATE 1 ,5:PRINT"Movement : " 
1045 LOCATE 5, B: GOSUB 2600 
1050 LOCATE 5, 12: PR INT "Look" 
1060 LOCATE 5, 14: PRINT "Pause" 
1070 LOCATE 5, 16: PRINT"Tel eport " 
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1080 LOCATE 1 ,21: PRINT "Type the -first le 
tter o-f the command of your choice" 

1099 RETURN 

1100 BOSUB 2500 
1110 MODE 2 

1120 PRINT"Choose what you want to do" 
1130 PR I NT "==========»================" 

1140 LOCATE 5,7:PRINT"Sword fight" 
1150 LOCATE 5,9:PRINT"Dagger fight" 
1160 LOCATE 5, ll:PRIMT"Run away" 
1170. LOCATE 5, 13: PRINT"Magi c spell" 
1175 LOCATE 1,16: GOSUB 1800 
1177 LOCATE 1,18: GOSUB 2300 
1180 LOCATE l,21:PRINT"Type the -First le 
tter of the command of your choice" 

1199 RETURN 

1200 REM Player has killed the DRASON 
1210 MODE 2 

1220 LOCATE 1 , 5: PRINT" Wei 1 played brave 

knight" 

1230 LOCATE 1 , 7: PRINT" You have slain the 

foul beast" 
1240 LOCATE 1 , 9: PRINT"The Dragon, terror 

of your people, has fallen in battle" 
1245 GOSUB 30:G0SUB 30 

1250 LOCATE 1,12:PRINT"( and your sc 

ore hath mysteriously risen )" 

1260 sc=sc+200 

1270 df = l 

1299 RETURN 

1400 REM The Player managed to get kille 

d 

1410 MODE 2 

1420 PRINT"Now comes that moment in the 

life of every truly gallant knight" 

1430 PRINT: PRIMT"When the court meets fa 

r a great feast and all make merry and e 

at and drink their fill." 

1440 GOSUB 30:PRINT:PRINT" except you 

that is " 

1450 PRJNT: PRINT" I'm afraid that you jus 

t died." 

1460 PRINT: PRINT" You managed to amass th 

e truly noble score of "Jsc 

1470 LOCATE 1 , 21 : PRINT"Why not try diffe 

rent tactics next time" 
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1.480 GOSUB 30:G0SUB 30:GQSUB 30 

1499 RETURN 

1500 REM The Player escaped 
1510 CLS 

1520 PRINT" You've clone it, against all o 

dds" 

1530 PRINT" You" ve actually escaped -from 

the dreadful place" 

1540 IF df-O.THEN PRINT"You didn't 'Quit 

e ? manage to stay around long enough to 

kill the Dragon.": GOTO 1560 

1545 PR I NT "You even managed to kill the? 

foul, cruel and awfully nasty Dragon on 

the way out " 

1557 PRINT:PRINT"That won't be altogethe 
r bad for your bank balance" : GOSUB 30sPR 
I NT : PR I NT "or your score" 

1558 sc~sc+400 

1560 LOCATE 1 , 16s PRINT" YOU HAVE SCORED " 
;SC? " points" 

1570 PRINT"Plus a small psychological bo 
nus": GOSUB 30: PRINT" You' re alive" 

1599 RETURN 

1600 REM set RAND variable by maze numbe 
r requested 

1610 MODE 2 

1620 LOCATE 1,11 

1630 INPUT "Maze number " : n 

1640 LOCATE 1 , 18 

1650 PRINT"Write this number down" 

1660 PRINT: PRINT"so that you can have th 

e" 

1670 PRINT: PR I NT "same maze again if you 

1 ose" 

1680 RANDOMIZE n 

1699 RETURN 

1700 REM Choose a random monster 
1705 l=3*lv:IF 1 >20 THEN 1=20 

1710 n=INT(RND(l)*l+l) : m=INT (RND < 1 ) *2Q+1 

> 

1720 DJ$=a*<M)+" "+M$(N) 

1730 MS=INT<RND(1)*MS<N)+1) 

1740 MM«INT<RND(1>*MM<N>+1> 

1750 MC=MC(N) 

1760 NS-MS+MM*4*MC/1Q0 

1799 RETURN 
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1800 REM Print monster statistics 

1810 PRINT'The ";DJ*S 

1820 PRINT" is "; 

1830 IF ms<4 THEN PRINT"nearly dead": GOT 

1899 

1840 IF ms<10 THEN PR I NT "badly wounded": 

GOTO 1899 

1850 IF ms>ps THEM PRINT"still dangerous 

l! 

i860 IF msOps THEN PR I NT "still here" 

1899 RETURN 

2000 REN reduce MS by player -fighting 

2010 PRINT" You attack the monster "iR 

QSUB 30 

2020 IF RND(l)*wp<0.4 THEN PR I NT "..■.„ bu 
t miss": GOTO 2099 
2030 PRINT". . . . and hit, " 
2040 n = INT (RND ( 1 ) *ps/wpH) 

2050 IF n<>ms/4 THEN PRIMT"causing a sma 
11 amount of damage": GOTO 2090 
2060 IF n>ms/2 THEN PRINT"causing seriou 
s damage to the monster " 

2070 IF n>=ms THEM PRINT: PRINT"The monst 
er dies from it's wounds" 
2090 ms-ms-ns IF ms<0 THEN ms~0 
2095 IF msOO THEN sc=sc+ns: mf ==0s IF df=2 
THEN GOSUB 1200 

2099 RETURN 

2100 REM Reduce MS by player magic 

2110 PRINT"Waving your hands and chantin 

g": PRINT" You begin to summon the fire de 

mon" 

2120 IF RND(l)*pm<mm THEN PRINT"but your 

spell is disrupted by your f oe" : PRINT"a 
nd the demon returns" : PRINT"to the hells 

where it be 
longs": GOTO 2199 
2130 PRINT"and gradually the demon forms 

around your opponents body" 
2135 GOSUB 30 
2140 n=INT(RND<l)*pm+l> 
2145 ms=ms-ns pm-pm-n 
2150 IF ms<0 THEN ms=0 

2160 IF ms=0 THEN PR I NT "The ";DI *s" is 
slain by the fire demon": LET sc=sc+ns:mf 
=0sIF df=2 THEN GOSUB 1200 
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2199 GOSUB 30: RETURN 

2200 REM Set Teleport, Heal, Attack menu 
2210 MODE 2 

2220 LOCATE 2, 6: PR I NT "SELECT TYPE OF SPE 

LL" 

2230 LOCATE 2,7:PRINT"================== 

2240 LOCATE 1, 1 1 : PRINT"T) eleport " 
2250 LOCATE 1 , 13: PRINT"H> eal " 
2260 LOCATE 1 , 15: PRINT" A) ttack " 
2265 LOCATE 1,1 7: GOSUB 1800 
2270 LOCATE 6, 19: PR I NT "Press initial let- 
ter to select" 
2280 GOSUB 3400 
2290 op=INSTR("THA", i *) 

2298 IF op=0 THEN GOTO 2280 

2299 RETURN 

2300 REM Display player characteristics 
2310 PR I NT "You are feeling "; 

2320 ON IMT(ps/5) GOTO 2340,2350,2360 

2330 PR I NT "very strong": GOTO 2370 

2340 PRINT" very weak": GOTO 2370 

2350 PRIN7"weak":G0T0 2370 

2360 PRINT"-fairly strong" 

2370 IF pm=0 THEN PRINT'and you have no 

magic left":G0T0 2399 

2380 IF pm<5 THEN PRINT" You' re running o 

ut o-f mag i c " 

2399 RETURN 

2400 REM Read names and adjectives 
2410 RESTORE 9000 

2420 FOR 1=1 TO 20 

2430 READ a* (L): NEXT I 

2450 FOR 1=1 TO 20 

2460 READ m*(L):NEXT 1 

2470 FOR 1=1 TO 20 

2480 READ ms < 1 > , mm ( 1 > , mc ( 1 ) 

2490 NEXT 1 

2499 RETURN 

2500 REM Generate MO* movement string 
2505 IF 1*="" THEN I*="F" 

2510 FOR 1=65 TO ASC ( i *> : a=RND < 1 ) : NEXT 1 
2520 IF RND(1)<0.3 THEN mo*="N" ELSE mo* 

2530 IF RND(1><0,3 THEN mo$^mo$+"S" ELSE 
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2540 IF RNDCLK0.3 THEN fno$^o$+ n E M ELSE 

ma*-ma*+" " 
2550 IF RNDdXO. 3 THEM MO*=MO*+»W M ELSE 

MOS-MO**-" » 
2560 IF RNDdXO.07 THEN MO*=MO*+ ,i U ,, ELS 
E MO$^MG$+" •" 

2570 IF RND(i)<0.07 THEN MO*=MO*+"D" ELS 
E MO*=MO*+" " 

25S0 IF MO*"" " THEN GOTO 2520 

2590 IF RND< 1X0.4 THEN MF=1 

2599 RETURN 

2600 REN DESCRIBE LOCATION EXITS 
2610 PR I NT "You can move : " ; mo* 

2699 RETURN 

2700 REN Player chose the Heal spell 
2710 PR I NT "You being to heal yourself" 
2720 1=INT<RND<1>*3+1) 

2730 IF 1=*1 THEN PRINT"but your spell la 
c::ks something" 

2740 IF 1=3 THEN PRINT"wow ! what a powe 
rful heal i ng spel 1 " 
2750 n==INT(RND(l)*pm+l> 
2760 ps=ps+n*l : prn~pm-n 

2770 IF pm=0 THEN FRINT"You have used up 
al 1 your magi c" 

2799 RETURN 

2800 REN Teleport out of battle routine 
2810 IF RND(l>*pm<mm*1.5 THEN PRINT" Your 

teleport spell fails": GOTO 2899 
2820 PRINT" Your materi al form shi miners a 
nd then vanishes" 

2830 GOSUB 30: PRINT" You re-appear somewh 
ere else" 

2840 RANDOMIZE TIME 
2850 PR INT" The surroundings 1 ook strange 

2860 IF RND<0.4 THEN PRINT" You" ve moved 

further down into the dungeon": Iv-iv+INT 

(RND<1)*4+1> 

2870 mf=0 

2880 IF df=2 THEM df=0 

2899 RETURN 

2900 REM Setup all variables/arrays 
2920 DIM a*(20),m*(20> 

2930 DIM ms(20> ,mm(20) ,mc (20) 
2940 GOSUB 2400 
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2945 dm«30:dc-75:ds=25 

2950 df=0 

2960 ps«205pm«20 

2970 sc™0: 1 v~3 

2980 mf«0 

2999 RETURN 

3000 REM Transfer DRAGON statistics 
3010 mm~dm: mc=dc : ms=ds 

3040 ns«0 

3050 DJ*="awe inspiring, horrendous Drag 

on" 

3099 RETURN 

3100 REM the monster attacks (fighting) 
3105 PR I NT "The monster claws and bites a 
t you": GOSUB 30 

3110 IF RND(1)<0.4 THEN PRINT"but misses 

you" s GOTO 3199 
3120 PRINT"and hits you" 
3130 n«INT(RND(l)+ms+l> 
3140 ps=ps-n:IF ps<0 THEN ps=0 
3150 IF ps<5 THEN PRINT" You ? re getting p 
retty badly hurt " : PRINT"better watch you 
r step" 

3199 RETURN 

3200 REM the monster attacks (magically) 
3205 PRINT"The monster begins to summon 
a demon ": GOSUB 30 

3210 IF RND(i)*mm<pm THEN PRINT" the demo 

n of cold is bani shed M : GOTO 3299 

3220 n = INT(RNDU>*mm+l> 

3230 ps=ps~n: mm-mm-n 

3240 IF psOO THEN ps-Os PRINT" You froze. 

M 

» • a • 

3250 IF ps<5 THEN PRINT" You' re nearly de 

ad" 

3260 IF ps>=5 THEN PRINT "Brrr. That was 

chilly" 

3299 RETURN 

3300 REM Choose monster attack type 
3310 IF RND(l)*ps>10*RND(l)*ms THEN PRIN 
T"The monster runs away -from you" : m-f =0: s 
c=sc+ns:GQT0 3399 

3320 IF RND(l)*100<mc THEN GOSUB 3200: GO 

TO 3399 

3330 GOSUB 3100 

3399 RETURN 
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3400 REM Read a character -from KBDs 

3420 i*=INKEY* 

3425 IF i$::^ ,, a 1 ' AND i*<="z" THEN i *=CHR* 

( ASC ( i * ) -ASC ( " a M ) +ASC ("A")) 

3430 IF i*<"A" OR i*>"Z" THEN GOTO 3420 

3499 RETURN 

9000 DATA vicious, nasty, enormous, violent 

9001 DATA sly, undead, beauti f ul , evi 1 

9002 DATA rotting, si i my , armoured 

9003 DATA terrible, -foul , bloody 

9004 DATA fearsome,, hypnot i c , dangerous 

9005 DATA sadi sti c , cruel , pi ti ful 
9010 DATA ore, kobold, newt , wolf 
9015 DATA eagle, dwarf , trol 1 ,balrog 
9020 DATA el f , wi ght , ki ng , bear 

9025 DATA black rider, snake, devi 1 , wi 1 1 o 

* the wisp 

9027 DATA si ime, giant , venus flower, blowf 

iy 

9030 DATA 1 ,0,0,5, 20 ,75,1,50,1 00 , 20 , , 

9040 DATA 15,5,20,15,0,0,30,0,0,15,20,50 

9050 DATA 10,40,25,40,100,2,30,10,20,35, 
,0 

9060 DATA 20 , 40 , ,10, ,0,4, 20 , 40 , 20 , 70 , 1 







9070 DATA 4 , , , 35 , , , 20 ,10, 30 , 1 , 10, 75 



SNIPER 




As you will know, your Amstrad can produce figures for use in 
many of your games programs. We have used him here, but 
not in the nicest way. 

He is running for his life. 

The figure will appear on the screen, sometimes for a few 
seconds, sometimes for a split second, and you must line up 
your rifle and bring him down before he vanishes again. 

It's not nice, as we said, but then again he might be an 
advance man from a foreign planet and we all know what a 
nuisance they can be. 



How to play 

When the character appears use ARROW keys to move and 
the COPY key to fire. 
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The program 



10 REM SNIPER 

20 ENV 1,8,-1, 1 

30 ENT 1,8, 1, 1 

40 ENV 2,30,-3,10,15,-2,5 

50 DEFINT A-Z 

60 BASE*=" "+CHR*(160)+" " 

70 SPIES=0 

80 HITS=0 

90 SPYFLAG=0 

100 SPYCH=250 

110 REM NEW SNIPER LOOP 

120 MY=0 

130 BASE=10 

140 MODE 

150 LOCATE 1,25 

160 PAPER 7: PEN 4 

170 FOR Q=l TO 20 

180 PRINT CHR*U27) 5 

190 NEXT Q: PAPER 

200 BORDER 5 

210 INK 2,7 

220 PEN 11 

230 LOCATE BASE-1 , 24: PRINT BASE*; 

240 REM MAIN LOOP 

250 IF MYOO THEN GOSUB 580 

260 FLAG=0 

270 IF INKEY(8)=0 AND BASE>2 THEN BASE=B 

ASE-1:FLAG=1 

280 IF INKEY<1>=0 AND BASE: 19 THEN BASE = 

BASE+1:FLAG=1 

290 IF FLAG=1 THEN PEN 1 1 : LOCATE BASE-1., 

24; PRINT BASE*; 

300 IF INKEY<9)=0 AND MY=0 THEN MY=23:MX 

=BASE : SOUND 1 30 ,0,50,15,2,0,15 

310 GOSUB 410 

320 IF SPIESO10 THEN GOTO 240 

330 REM ALL SPIES RUN AWAY OR SHOT 

340 CLS:PRINT"ALL SPIES HAVE BEEN KILLED 

If 

350 LOCATE 1 , 5s PRINT" YOU HIT ";HITS;" OF 

THEM" 
360 IF HITS>8 THEN PRINT" ( there may 

be a medal in this for you )" 
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370 IF INKEY*=" " THEN GOTO 370 

380 IF INKEY$<>" " THEN BOTO 380 

390 RUN 

400 END 

410 REM PERFORM SPY ACTIONS 

420 IF SPYFLAG=1 THEN GOTO 460 

430 IF RNDU) >0.007 THEN RETURN 

440 SPYP0S=INT(RND<1)*10)+6:SPYDIR=1: IF 

RND(1>>0.5 THEN SPYDIR=-1 

450 GOTO 570 

460 REM SPY IS PRESENT 

470 IF SPYP0S=1 OR SPYPDS=19 THEN LOCATE 

SPYPOS+ 1 , 5 : PR I NT " " ; : GOTO 560 
480 IF RND<1) >0.09 THEN GOTO 550 
490 SOUND 1,0,10,3,1,1,6 
500 SPYPOS-SPYPOS+SPYD I R 
510 LOCATE SPYP0S,5 
520 PEN 3 

530 SPYCH=501-SPYCH 
540 PRINT " "$CHR*(SPYCH> 5 " "5 
550 RETURN 

560 PRINT" "; :SPIES=SPIES+1 
570 SPYFLAG=1-SPYFL AG; RETURN 
580 REM MOVE MISSILE UP 
590 LOCATE MX, MY: PRINT " "; 
600 MY=MY-1 

610 IF MY=0 THEN RETURN 
620 LOCATE MX, MY 

630 IF MX=SPYP0S+1 AND MY=5 THEN H.ITS=HI 
TS+1:PRINT " " ; : SPYFLAS-O: MY=0: SOUND 3,2 
00+20*SPIES, 15: SPYPOS-0: RETURN 
640 PEN 9: PRINT CHR*(148)j! 
650 RETURN 



WAR PLAN 




Twenty enemy units are 'hidden' on the screen and must be 
'knocked' out by your missiles in as few shots as possible. You 
have only fifty missiles so you will have to use them sparingly, 
and accurately, or you will be over-run by the opposition. 

If, after firing, you have not hit your target you will receive 
intelligence reports from your forward observers in the field. 

Your forward troops will only be able to 'search' eight 
surrounding squares after a miss but, if you make a direct hit 
then twenty four surrounding squares will be scanned for 
further enemy targets. 



How to play 

Use the letter and number keys to define the co-ordinates you 
have chosen and the ENTER key to launch your missiles. 
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The program 



10 REM WAR-PLAN 

20 GOSUB 380 

30 SYMBOL AFTER 129 

40 SYMBOL 129,0,32,96,120,96,112,136,112 

50 SYMBOL 1 30 , , , , , O ., , , 

60 SYMBOL 131, 0,62, 62', 62, 32, 32, 32, 3? 

70 SYMBOL. 1 32 , , 1 36 , 80 , 32 , 32 , 32 , 80 , 1 36 

80 GOSUB 440 

90 GOSUB 510 

.1.00 GOSUB 860 

110 GOSUB 1010 

120 GOSUB 1170 

130 IF NME(X,Y)=0 THEN GOSUB 1210: GOTO 1 

60 

140 IF NME(X,Y>— 1 THEM GOSUB 1240: GOTO 

160 

150 GOSUB 1320 

160 IF MME(X,Y)=0 THEN GOSUB 1460 ELSE G 

OSUB 1380 

170 SR=SR-1:IF SR>0 THEN M$="You have "•+• 
STR$(SR)+ M shots le-ft": GOSUB 630s PRINT 

180 IF SR>0 AND ER>0 THEN GOTO 110 

190 REM PLAYER IS OUT OF SHOTS 

200 REM OR HAS DESTROYED ALL MME UNITS 

210 IF ER=0 THEN GOSUB 1540: GOTO 90 

220 M*="Central O-f-fice advises you."sGOS 

UB 630: PRINT 

230 M*="You have used up all our missile 

s": GOSUB 630: PRINT 

240 M$="This is where the enemy was hidi 

ng":BOSUB 630: PRINT 

250 WINDOW 1,40, 1,20: GOSUB 930: WINDOW 1, 

40,21,25 

260 M$="You have scored : "+STR$ (sc ) : GOSU 

B 630: PRINT: FOR L=l TO 1000: NEXT L 

270 IF SOHS THEN M$="Which is the high 

score" : GOSUB 630: HS$=N$: HS=SC: PRINT 

280 REM Ask IF PLAYER WANTS ANOTHER GAME 

290 WINDOW 1,40, 1,25: CLS: LOCATE 1,11 

300 M*=" Commander "+HSS+" has the high s 

core": GOSUB 630 
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310 LOCATE 1, 13: M*=" Which is "+STR*(hs)+ 

" points" :G0SUB 630 

320 LOCATE 1,17: LET M*="Does anyone want 

another game (Y/N) ?":G0SUB 630 
330 I*=INKEY*:IF I*<>"" THEN GOTO 330 
340 I*=INKEY*: IF 1*="" THEN GOTO 340 
350 IF I*="y" OR I*="Y" THEN GOTO 80 
360 IF I*="n" OR I*="N" THEN WINDOW 1,40 
, 1,25:CLS:END 
370 GOTO 330 

380 REM SET UP FOR A NEW GAME 
390 HS=0:HS*=" " 
400 MODE 1 
410 BORDER 13 
420 DIM NME(14,24) 
430 RETURN 

440 REM SET UP FOR A NEW PLAYER 
450 WINDOW 1,40, 1,25 
460 SC=0:CLS 
470 LOCATE 6, 1 1 : PRINT" What is your name 

It m 

480 INPUT n*:IF N$="" THEN GOTO 470 

490 WV=1 

500 RETURN 

510 REM SET UP FOR NEW WAVE 

520 WINDOW 1,40, 1,25: CLS: LOCATE 1,9:M*=" 

Commander "+N*+". ": GQSUB 630 

530 LOCATE 1 , 1 1 : M*="Central O-f-fice advis 

es you. ":GOSUB 630 

540 LOCATE 1 , 13: M$=" Attack enemy immedia 

tely. ":60SUB' 630 

550 LOCATE 1 , 15: M*="Repeat , ATTACK. ATTA 

CK. ":GOSUB 630 

560 LOCATE 1 , 21 : M*=" " : FOR L=l TO 10:M*=M 

*+CHR*(10):NEXT L:GOSUB 630 

570 FOR X=I TO 14: FOR Y=l TO 24:MME(X,Y) 

=0:NEXT Y:NEXT X 

580 ER=20:F0R L=l TO ER 

590 X=INT(RND(l>*10+3) : Y=INT (RND ( 1 ) *20+3 

):IF NME(X,Y)<>0 THEN GOTO 590 

600 IF L<3' THEN NME(X,Y)=-1 ELSE NME(X,Y 

)=1 

610 NEXT L:SR=50 

620 RETURN 

630 REM Teletype emulator 

640 FOR L=l TO LEN<M*> 
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650 PRINT MID*(M*,L,1); 

660 SOUND 1,0,5,7,0,0,1 : SOUND 1 , 

670 IF SQ(1)>127 THEN GOTO 670 

680 NEXT L 

690 RETURN 

700 REM SCAN LOCALLY 

710 NN=0 

720 FOR X=TX-1 TO TX+1 

730 FOR Y=TY-1 TO TY+1 

740 NN=NN+ABS ( NME < X , Y ) ) 

750 NEXT Y:NEXT X 

760 NN=NN-ABS<NME<TX,TY> ) 

770 RETURN 

780 REM SCAN LARGER AREA 

790 NN=0 

SOO FOR X=TX-2 TO TX+2 

810 FOR Y=TY-2 TO TY+2 

820 NIM=NN+ABS ( NME ( X , Y ) ) 

830 NEXT YrNEXT X 

840 MN=NIM-ABS(MME(TX,TY> ) 

850 RETURN 

860 REM LABEL MAP AREA 

870 WINDOW 1,40, 1,20: CLS 

880 LOCATE 12, 1 : PRINT" 1 1 1 1 1 1 1 1 1 12" 

E 3 , 2 : PR I NT " 1 234567890 1 234567890 " 

890 LOCATE 1,3 

900 FOR L=ASC("A") TO ASCC'J") 

910 PRINT CHR*(L):NEXT L 

920 RETURN 

930 REM FILL IN ALL NME UNITS 

940 FOR X=3 TO 12 

950 LOCATE 3,X 

960 FOR Y=3 TO 22 

970 PR I NT CHR$ ( 1 30+NME ( X , Y ) ) ; 

980 NEXT Y 

990 NEXT X 

1000 RETURN 

1010 REM GET A LEGAL SHOT 

1020 WINDOW l,40,21,25:M*="Enter tar 

-For missile " : GOSUB 630: PR I 

1030 X=1:A=1:B=0:C=1: WINDOW 1,40,1,2 



LOCA" 



1040 LOCATE 

";A+B;" 1 "; 
1050 I$=INKEY*:IF 
1060 I*=INKEY*:IF 
1070 IF I*<"0" OR 



get 
NT 

11, 15: PRINT" C "?CHR*(64+X) ; ' 



I*<>"" 
1$='"' 

I$>"9" 



THEN GOTO 1050 
THEN GOTO 1060 
THEN GOTO 1100 
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1080 IF C=l THEN B=A*10: A=ASC < I*> -ASC < "0 
"):C=0:G0T0 1040 

1 090 C= 1 : B=A* 1 : A=ASC ( I * ) -ASC ( " " ) : GOTO 
1 040 

1100 IF I*=CHR*U3) THEM GOTO 1140 
1110 IF I*>="a" AND i*<="j" THEN i*=CHR* 
(ASC (i*) -ASC ( "a" ) +ASC ("A")) 
1120 IF i*<"A" OR I*>"J" THEN PRINT CHR* 
(7)5: GOTO 1040 

1 1 30 X -ASC ( I * ) -ASC ( " A " ) + 1 : GOTO 1 040 
1140 Y=A+B+2:X=X+2:IF X=2 OR Y<3 OR Y>22 
THEN A= 1 : B=0 : X=0 : PR I NT CHR* ( 7 ) ; : GOTO 1 
30 

1150 LOCATE 11, 15s PR I NT" 
?, : WINDOW 1,, 40,21,25 
1160 RETURN 
1170 REN UPDATE MAP 

1180 WINDOW 1,40, 1,20: LOG ATE Y,Xs PRINT C 
HR*<132>5 

1190 WINDOW 1,40,21,25 
1200 RETURN 

1210 REM PLAYER MISSED 

1220 M*="The missile missed the enemy": 6 
OSUB 630: PRINT 
1230 RETURN 

1240 REM PLAYER HIT A COMMAND BASE 
1250 M*="You have hit the command base": 
GOSUB 630: PR I NT 

1260 IF er>2 THEM m*-"...but it is not d 
estroyed": GOSUB 630: PRINT: GOTO 1310 
1270 M*="... and you destroyed i 1 ": GOSUB 
630: PRINT 
1280 SC=SC+500 
1290 NME(X,Y>=0 

1300 ER=ER~1 

1310 RETURN 

1320 REM PLAYER HIT AN ENEMY UNIT 

1330 NME(X,Y)=0 

1340 M*="You have hit an enemy unit": COS 

UB 630: PRINT 

1350 M$="and it is destroyed ": GOSUB 630:: 

PRINT: ER=ER-1 

1360 SC=SC+20 

1370 RETURN 

1380 REM SEARCH AROUND NEARBY 
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1390 M*~" Intel 1 igence reports : 

,, +CHR*<13)+CHR*<10> 

1 4 t x = x s T Y = Y s G S U B 7 

1410 IF NN=0 THEM M$-M*+"no nearby artiv 

ity" 

1420 IF nn>0 AND nn<Z THEM m*=m*+"A smal 

1 amount of nearby acti vi ty" 

1430 IF nn>--3 THEN m*=m*+ l! A large amount 

of nearby acti vi ty" 
1440 WINDOW 1,40,21,25:6QSUB 630s PRINT 
1450 RETURN 

1460 REN search around after a hit 
1470 m*~" Intel 1 i gence reports : 

M +CHR*(13)"i-CHR*(10) 
1480 tx=xsty=y:G0SUB 780 

1490 IF nn=0 THEN M*=M*+"ncD local activi 
ty" 

1500 IF nn>0 AND nn<6 THEN m*=m*+"a smal 
1 amount of local activity" 
1510 IF nn>5 THEN m*-m*+ ,l a large amount 
of local activity" 

1520 WINDOW 1„40,21,25:G0SIJB 630: PRINT 
1530 RETURN 

1540 REM PLAYER HAS WIPED OUT A WAVE 
1550 WINDOW 1,40,1,25:01.3 

1560 LOCATE 1 ? 1 1 s M*== n Cental Office advis 
es you. ,! :G0SUB 630 

1570 LOCATE 1 9 13: m*="Forthcomi ng enemy c 
ounter attack. " 2 G0SUB 630 

1580 LOCATE 1 „ 15s m*="Prevent at all cost 
s. " sGOSUB 630 

1590 LOCATE 1 , 19s m$^ H Your score so far i 
s s ,, +STR*(sc)+ M points. " : G0SUB 630 
1600 LOCATE 1 , 21 : m$-" " : FOR 1=1 TO 10sm*^ 
m*+CHR* (10) :NEXT 1 s GOSUB 630 
1610 RETURN 



S.I.M.P.E.R. 




At last, you say, in a computer book there must be an acronym 
somewhere because the whole business is full of Poke, Peek, 
Byte and Ram. Well, our title stands for Semi Intelligent 
Machine Psychologist with Extendable Response. 

What, you ask, has that got to do with the time of day? 

We will explain. 

This is your chance to use your computer to make fools out of 
all your friends, party guests, loved? ones etc. Your 
SIMPERING Amstrad will ask questions and respond to your 
answers with 'semi-intelligent' comments. Can you take the 
risk? 



How to play 

Your computer will ask you to enter statements about 
yourself. 
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Type in your comments, making them as long as possible, 
and your Amstrad will make it's considered comment on your 
character. 

It's a little like having a 'shrink' at home. 



Programming Hints 

We have given you a selection of appropriate data (words) 
that might make fun for your family but you can change, add 
or delete these lines and cause fun and games at your next 
party. 

If you have added a memory expansion unitto your computer 
you can add to the data statements from lines 520 onwards 
and give the computer a much wider choice of response. 



The Program 



10 REM S. I-M.P.E.R. 

20 Q*-"Hello. My name is SIMPER, I'm her 

e to di scuss your problems. Why do you e 

n joy life ?" 

30 bs~0 

40 os=0 

50 PRINT q* sPRINT 

60 INPUT a$:IF a*="" THEN GOTO 50 

70 IF LEFT* (a*, 3) =" YES" THEN PRINT" At la 

st, some determination" s q*-"Do you often 

behave quite so firmly ?":G0T0 50 
80 IF LEFT*<a*,6)«"PARD0N" OR LEFT* (A*, 2 
>-"EH" OR A*« H WHAT" THEN GOTO 50 
90 IF A*="N0" THEN PRINT"Short and to th 
e point": IF 0S«0 THEN PRINT"Give me some 
thing to go on": GOTO 50 
100 GOSUB 250:G0SUB 300 
110 A*==" "+A* 

120 IF V=0 AND UOO THEN GOSUB 360: GOTO 
50 

130 IF V=0 AND 0SO0 THEN U=0S: 0S=0: G05U 
B 360: GOTO 50 
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140 IF V=0 THEM GOSUB 460s GOTO 50 
150 GOSUB 410:0S=U 
160 GOTO 50 

170 REM SEARCH FOR T* IN AS 
1B0 F=0 

190 IF A*=T* THEM F=l: RETURN 
200 IF LEN(A*XLEN(T*> THEN RETURN 
210 FOR L=i TO LEN(A*)-LEN(T*>+1 
220 IF MID*(A*,L,LEN(T*)>=T* THEN F = l 
230 NEXT L 
240 RETURN 

250 REM RETURN VERB NUMBER IN V 
260 V=0: RESTORE 520 
270 READ NsREAD T$:FOR (3=1 TO N 
280 READ T*: GOSUB 170: IF F=l THEM V=Q 
290 NEXT Q: RETURN 

300 REM RETURN NOUN NUMBER IN U 
310 U=Os RESTORE 550 
320 READ N:READ T*:FOR Q=l TO N 
330 READ T*: GOSUB 170: IF F=l THEN U=Q 
340 NEXT Q 
350 RETURN 

360 REM FIND REPLY SENTANCE 
370 RESTORE 790 

380 FOR L=0 TO (U-l ) *3+INT (RND ( 1 ) *3> 
390 READ Q*:NEXT L 
400 RETURN 

410 REM CHOOSE SENTANCE. 
420 RESTORE 590 

430 FOR L=0 TO ( V-l ) *3+INT (RND ( 1 ) *3> 
440 READ Q*:NEXT L 
450 RETURN 

460 REM CONJURE UP A RESPONSE 
470 BS=BS+1:IF BS-7 THEN PR I NT "SORRY ... 
YOUR TIME IS UP": PR I NT: PR I NT: PR I NT: PR IN 
T:END 

480 RESTORE 980 
490 FOR l_=l TO BS 
500 READ Q*:NEXT L 
510 RETURN 
520 DATA 8 
530 DATA ! 
540 DATA LOVE, HATE , OWN, WANT, FLY, WALK , TAK 

E,GIVE 
550 DATA 9 
560 DATA ! 
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570 DATA CAR, COMPUTER, HOLIDAY, M0NFY,TELF 

.MUSIC, VIDEO, FOOD, FISH 

580 REM REPLY DATA 

590 DATA How do you know that it's love 

600 DATA What does it -Feel like to be in 

1 DVE ? 

610 DATA Why do you think you fee] 1 il-e^ 
that ? 

620 DATA Are you sure that you're not be 
ing ovBr hasty ? 

630 DATA Well if you're sure about it th 
en it's good for you 

640 DATA Is this -feeling very intense. D 
o you really mean it ? 

650 DATA That's very progressive of you, 
wouldn't 'CARE FOR- be a better way of' 
putting it? 

660 DATA But do you own your soul, or ha 
ve you traded it with consumer society ? 
670 DATA Please clarify yourself. Love o 
r want- The first is more polite. 
6SO DATA That's very impulsive 
690 DATA I Want... . I Want... Belloc has 
a suprise for you 

700 DATA Do you sometimes wish that you 
could fly, Aeroplanes a.rB so expensive. 
aren't they ? 

710 DATA Fly me to the moon,. . . Do you thi 
nk that you'd enjoy that ? 
720 DATA Nothing beats shank's pony, wal 
king is v^ry good exercise 
730 DATA It might be quicker by c^r 
740 DATA Perhaps if you said please firs 
t it might help. Your ' e showing that pro 
gressive trait again 

750 DATA How would you take that ? 
760 DATA Giving is good for the char act e 
r. Do you do a lot of it ? 
770 DATA Christmas is a time for giving 
780 DATA Do you recieve more than you gi 
ve ? Be honest. 

790 DATA Do you like fast cars, ^r^ you 
good mechanically;, do you like motorways. 

They're too fast for me 
800 DATA You obviously like computers. I 
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can tell that you are a natural at the? 
keyboard. 

810 DATA Do computers worry you in any w 
ay ?, Isn * t it a bit unnervi ng tal ki ng to 

a computer like this ? 
820 DATA Would you please take me with y 
ou on your holiday- That's a great way t 
o get away -from i t al 1 

830 DATA Do you like to go abroad, or pe 
rhaps you prefer to stay at home 
840 DATA Money is everyone's favourite p 
roblem. Talking of money I have these ra 
ther large -fees,... 

850 DATA How do you earn you money. Are 
you by any chance a fortune tel 1 er ? 
860 DATA What it must be to be a million 
aire. All that caviar „ It's enough to ma 
ke anyone ill. 
870 DATA I'm worried about the profusion 

of tel e-this and tele-that devices. 
880 DATA Where do you watch television m 
ost often 
890 DATA Are you addicted to television- 

Li ke some people I know 
900 DATA what type of music do you like 
best, I used to adore Simon and Garfunke 
1. What do you think of them ? 
910 DATA So much modern music is too lou 
d. I get lots of cases who are disco-goe 
rs. 
920 DATA Do you have a video recorder at 

home ?j,how long hve you had a video ? 
930 DATA If you video too much then you 
won't have any time to notice the real w 
orl d 

940 DATA So you eat too much do you, foo 
d is all very well but you musn't be obs 
essed with it. You' 1 1 get fat. 
950 DATA What's your favourite meal ? 
960 DATA Would you like to talk about fi 
sh, how about some nice fish and chips 
970 DATA Have you ever spent a day fishi 
ng by the river and not caught anything 

980 DATA Tell me more about your talents 
. Do you play the concert piano ? 
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990 DATA What kind of hobbies have you g 
ot. 

1 DAT A W here do y a u w o r k ? o r d a y o u 
still go to school or college ? 
1010 DATA How about a bit o-f word associ 
at ion. +++ MATHS +++ ? 

1020 DATA What does the word 7 MACKEfiREL : ' 
suggest to you ? 

1030 DATA I'm afraid that I will have to 
leave you in a few moments- I'm expecti 
ng a very important client- 



WORD SQUARE 



HI 



HE 
fiH 



iM 



This program is designed to test the wits of members of your 
circle who think they are keen of eye and sharp of brain. 

The screen will generate a square of alphabet which will 
contain hidden words. The words can be written horizontally, 
vertically, diagonally and even backwards. 



How to play 

When you have identified a word type in the answer and press 
ENTER. You should note that you may identify small words 
such as 'of and 'for' which appear simply because of the 
structure of the screen, but are not actually acceptable to the 
computer. 
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Programming Hints 



To make the program challenging you should have someone 
else enter the data words which are in the end of the program. 
Otherwise you will, of course, know the words you are 
seeking. 



The Program 



10 REM WORDSQUARE 

20 MODE 1 

30 BORDER 13 

40 GOSUB 500 

50 DIM P(10) , X(10) , Y(10) 

60 DIM S* (255), T* (255) 

70 DIM WUO) 

80 GOSUB 680 

90 GOSUB 1030 

100 FOR L=l TO 10:W(l_)=0 

110 NEXT L 

120 SC=0 

130 GOTO 160 

140 LOCATE 1,22: PR I NT "BE SENSIBLE' 

150 FOR L=l TO 1500: NEXT L 

160 LOCATE 1,23: PR I NT "Your Guess 



LOCATE 12,23 

INPUT A* 

IF LEN(A*)=0 



1 oo 



OR LEN(A$)>10 THEM GOTO 



1 70 
180 
190 

140 
200 LOCATE 
210 PRINT" 
220 GOSUB 1180 

230 IF F=0 THEM LOCATE ' 1 , 22: PRINT"Not th 
ere": GOTO 400 
240 SC=SC-Hl 

250 REM HIGHLIGHT THE WORD WHICH HAS BEE 
N FOUND 

260 IF W(F)«1 THEN LOCATE 1 , 22: PRINT" You 
? ve already had that word M s GOTO 400 
270 W(F)«1 
2S0 B«INT(P(F) /15> 
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290 A=P(F)-15*B 

300 FOR L=l TO 

310 LOCATE A+6,B+3 

320 GQSUB 640:D*=CHR*<DD> 

330 LOCATE A+6,B+3:PEN 2 

340 PRINT D$; 

350 PEN 1 

360 A=A+X(F) :B=B+Y(F) 

370 NEXT L 

390 IF SC=10 THEN GOTO 430 

390 LOCATE 1,23: PRINT"Wel 1 done ";SC;" c 

orrect so -far" 

400 FOR L=l TO 2000: NEXT L 

410 LOCATE 1,23: PR I NT" 

It 

420 GOTO 160 

430 REM Here when all ten are -found 

440 CLS 

450 LOCATE 1,11 

460 PRIMT"Weil done-.. you found them all 

470 IF INKEYSO"" THEN GOTO 470 

480 IF INKEY*""" THEN GOTO 4(30 

490 END 

500 REM PUT MACHINE CODE JUST ABOVE RE-A 

D JUSTED HI MEM 

510 MEMORY 39000 

520 MOHIMEM+1 

530 TA=HIMEM+S<7F 

540 TH=INT(TA/256> 

550 TL=TA-256*TH 

560 POKE MC,8<CD 

570 POKE MC+1,&60 

580 POKE MC+2,&cBB 

590 POKE MC+3,&32 

600 POKE MC+4,TL 

610 POKE MC+5,TH 

620 POKE MC+6,&C9 

630 RETURN 

640 CALL MC 

660 DD=PEEK(TA) 

670 RETURN 

680 REM READ IN DATA AND STORE IN 

690 LOCATE 1 1 , 1 1 : PR I NT "ONE MOMENT" 

700 S*="" 

710 FOR L=l TO 15 
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720 S$=S$+" 

730 NEXT L 

740 RESTORE 1270 

750 FOR 1=1 TO 10 

760 READ N$ 

770 N=LEN(N*> 

780 N*=RIGHT*(N*,N) 

790 ON I NT ( RND*8 > 60SUB 1 1 00 ,1110,11 20 , 1 

130,1140,1150,1160,1170 

800 A=INT(RND(1)*15) : B=INT (RND ( 1 ) *15) 

810 C=A+X(I)*N 

820 D=B+Y ( I ) *N 

830 IF C<0 OR D<0 OR C>14 OR D>14 THEM G 

OTO 790 

840 L=-l 

850 L=L+1 

860 Q=1+<B+Y(I)#L)*15+A+X < I ) *L 

870 Q*=MID*(S*,Q, 1) 

880 IF Q$=" " THEN GOTO 900 

890 IF Q*OMID*<N*,L+l,i) THEN GOTO 790 

900 IF L.ON-1 THEN GOTO 850 

910 FOR L=0 TO N-l 

920 Q=H-(B+Y<I)#L)*15+A+X ( I ) *L 

930 S*=LEFT* (S*, Q-l > +MID* <N$, L+l , 1 ) +MID* 

<S*,Q+1> 

940 NEXT L 

950 P<I>=A+B*15 

960 NEXT I 

970 T*="" 

980 FOR L-l TO 255 

990 IF MID*(S*,L,1>=" " THEN T*»T*+CHR* ( 

INT(RND(l)*26+65) ) ELSE T*=T*+MID* <S*, L, 

1) 

1000 NEXT L 

1010 S*=T*:T*="" 

1020 RETURN 

1030 REM DISPLAY SQUARE 

1040 CLS 

1050 FOR L=0 TO 14 

1060 LOCATE 6,L+3 

1070 PRINT MID$(S$,L*15+1, 15) 

1080 NEXT L 

1090 RETURN 

1100 X(I>=-1:Y(I)=-1:RETURN 

1110 X(I)=1:Y(I)=1:RETURN 

1120 X(I)=-1:Y(I)=1:RETURN 
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1 1 30 X ( I ) = 1 ;; Y ( I ) = -» 1 s RETURN 
1 1 40 X ( I ) =: 1 s Y ( I ) =0 :: RETURN 
1 1 50 X ( I ) =0 s Y ( I ) == 1 : RETURN 

1 1 60 X ( I ) = 1 : Y ( I ) == :: 0s RETURN 

1 1 70 X ( I ) =0 : Y ( I > =- 1 s RETURN 

1180 REN CHECK IF RESPONSE IS VALID 

1190 RESTORE 1270 

1200 F-0 

1210 FOR L==l TO 10 

1220 READ N* 

1230 IF N*=A* THEN F=L: 0=LEN <N*> 

1240 NEXT L 

1250 RETURN 

1260 REM WORD LISTS 

1270 DATA AMSTRAD, VIDEO., COLOUR 

1280 DATA SOUND, GRAPHICS, GAMES 

1290 DATA MONTIQR, PLAY, COMPUTER 

1300 DATA WATER 



FAST TYPER 




How are your reactions, your spelling and your keyboard 
skills? On your screen you will see a fast moving, ever 
changing colour background moving from left to right across 
the line of your vision. 

In the middle of this screen will pop up the word which you 
have to copy type on the screen to stop the computer. 



How to play 

You simply type in the word, without pressing any Enter keys, 
in as quick a time as possible to achieve the highest score. 



Programming hints 

If you find the words in lines 450 and 460 too simple, or even 
too difficult, you can change them to suit your own needs. All 
you need to do is to enter your own data, remembering to 
change line 440 if you increase the number of words from 8. 
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If you wish to change the length of the words then remember 
to change the number 6 in line 170 to the appropriate length 
of the new words you wish to insert. 



The program 



10 REM FAST TYPER 

20 GOSUB 330 

30 GOES-0 

40 SC=0 

50 EVERY 1 , 1 SOSUB 270 

60 RESTORE: READ N 

70 FOR L=l TO INT <RND (1> *N+1> : READ W$ 

80 NEXT L 

90 IF RND(1> >0.001 THEM GOTO 90 

100 INK 12, 26: PEN 12 

110 LOCATE 8, 10:P=1 

120 T=0 

130 PRINT W$ 

140 T=T+1:IF INKEY*<>" " THEM GOTO 140 

150 T=T+1:A*=INKEY*: IF A*="" THEN GOTO 1 

50 

160 IF A*OMID*(W*,P,l) THEN GOTO 140 

170 P=P+1:1F P<>6 THEN GOTO 140 

180 LOCATE 8, 10: PR INT" " ; 

190 SC=SC+T:60ES=G0ES+l!lF 60ESO5 THEM 

GOTO 60 

200 SC=INT(SC/5) 

210 CLS:LL=REMAIN<1) 

220 LOCATE 5, 10: PRINT" AVERAGE TIME : " 5 SC 

230 LOCATE 3, 15: PRINT "< SPACE > TO TRY AG A 

IN" 

240 IF INKEY*=" " THEN GOTO 240 

250 IF IIMKEY*<>" " THEN GOTO 250 

260 RUN 

270 REM LINE SLIDING 

280 REM USING 10 COLOURS 

290 DI 

300 ZZ=LL:LL=LL+lsIF LL.MO THEN LL=1 

310 INK LL, 14: INK 11,0 

320 EI .-RETURN 

330 REM PLOT LINES 

340 MODE 
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350 FOR L=l TO 10: INK L,L*2:NEXT L 

360 CC=1 

370 FOR H=l TO 639 STEP 4 

380 PLOT H, 1,CC:DRAW H,399,CC 

390 CC=CC+1:IF CO 10 THEN CC=1 

400 NEXT H 

410 BORDER 4 

420 FOR LL=10 TO 1 STEP ~1:IMK LL,0:NEXT 

LL 
430 RETURN 
440 DATA 8 

450 DATA MOUSE, HOUSE, WHICH, WITCH 
460 DATA MAINS, PLAIN, PLANE, MICRO 



CUBIST CONUNDRUMS 




!;iV , !""Ti|!||jjj};: i ! ,M| !'!'" ' 



Well, to tell the truth, we had to look it up to see what it was 
about and it seems there was a Dutch painter named 
Mondrian who painted abstract art. What has that to do with 
your Amstrad you may ask. 

Well, the fact is that your modest little computer has the talent 
to originate for your eyes only - abstract art. If you have had 
a hard day at the office, in the kitchen or at school just enter 
this short program into your computer - sit back and watch 
the results. 

It really is the most beautifully relaxing experience. 



Programming hints 

This small but very attractive program can be loaded into the 
middle of one of your own programs where you are using a 
pause during a search in an adventure. You could also use this 
when a large program was loading a second partto memory. 
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The program 



10 REM CUBIST CONUNDRUMS 

20 MODE 

30 BORDER 3 

40 PAPER INT(RND(1>*16) 

50 A= I NT ( RND ( 1 ) *20+ 1 ) 

60 B=INT(RND<1)*(21-A)+A) 

70 C=INT(RND(i)*25+l> 

SO D=INT(RND(1)*(26-C)+C) 

90 WINDOW A,B,C,D 

100 CLS 

110 IF INKEY(47)=0 THEN GOTO 110 

120 IF RND (1X0. 05 THEN GOTO 40 

130 INK INT(RND(1)*16> , INT (RND ( 1 ) #25) 

140 GOTO 40 



WIPEOFF 









^^^r^ 


\ftx 






Wvln 


mI Kr^/^L 


] m^jIpk 






ft i i 


x (4 fK^^i \ 




X 


1P^ J? l\ 

tV 7 - i 1* 






J 




vj^^xSs 



I am afraid that a bunch of horrible vandals have got into your 
Amstrad and covered the screen with paint from an aerosol. 
You have been stuck with the job of cleaning up the mess 
before the law arrive and start to look for a likely suspect. 



How to play 

You have only 30 seconds to wipe off the mess using the 
arrow keys and if you fail to finish in time you will get a 
percentage score against your efforts. 



Programming hints 

If you are too quick at finishing the clean up operation and you 
would like even less time to complete then alter the Count 1 
00 in line 50. 
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The program 



10 
20 

30 

40 

50 

60 

70 

BO 

90 

1 00 

110 

120 

1 30 

1 40 

1 50 

1 60 

SO 

170 

180 

1 90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 



REM WIPEOFF 
GOSUB 410 

GOSUB 260 

SCORE=0 

C0UMT=1000 

X=10:Y=10 

SOUND 1,500,10,4 

LOCATE X,Y: PRINT" "j 

IF INKEY(8)=0 AND X>1 
IF INKEY(1)=0 AND X< 
IF INKEY<0)=0 AND Y> 



THEN X 

THEN 

THEN 



Y 



X-l 
X = X+1 
= Y-1 



hita r; 



IF INKEY<2>=0 AND Y<25 THEN Y«=Y+1 

GOSUB 550 

IF DD<>32 THEN SC0RE=SC0RE+1 

C0UNT=C0UNT-1 

IF COUNTOO AND NUMOSCORE THEM GOTO 

NODE 2 

LOCATE 1", 10 

PR I NT "You have cleared "; 

PRINT USING "###.##"; SCORE* 1 00 /NUM! 

PRINT" 7. of the mess" 

LOCATE 1,15 

PR I NT " PRESS < SPACE > 

IF INKEY$<>" " THEN 

GOTO 30 

REN SPRAY AEROSOL 

MODE 

NUM=-1 

X=10: Y=10 

PEN 11 

GOSUB 550 

IF DD=32 THEN NUM=NUM+1 

LOCATE X,Y 

PRINT CHR*(143); 

IF RND(1)>0.6 THEN X=X+1 

RND(1>>0.6 THEN X=X~1 

RND(1)>0.6 THEN Y=Y+1 

RND < 1 ) >0. 6 THEN Y=Y--1 



TO TRY AGAIN' 
GOTO 240 



IF 
IF 
IF 
IF 



X >0 
N GOTO 310 
400 RETURN 



AND X<21 AND Y>0 AND Y<26 THE 
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410 
RE- 
420 
430 
440 
450 
460 
470 
480 
490 
500 
5 1 
520 
530 
540 
550 
560 
570 
580 



REM PUT MACHINE CODE IN MEMORY ABOVE 

•ADJUSTED HIMEM 

MEMORY PRE ( O ) -&8G 

MC^HIMEM+1 

TA==HIMEM + &7F 

TH=INT(TA/256) 

TL=TA-256*TH 

POKE MC,&CD 

POKE MC+1,&60 

! V IC+2,&BB 

MCM-3..&32 

MC+4,TL 

MC+5,TH 



POKE 

POKE 

POKE 

POKE 

POKE 

RETURN 

LOCATE 

CALL MC 

DD-PEEK(TA) 

RETURN 



MC+6.&C9 
X ? Y 



FIRST ONE 




This game could mean the possible destruction of your 
computer unless you trust all your friends to be gentle. 

The game is for up to NINE players, and the object is to be the 
first one to press a key and stop the game. 

A coloured square will appear on the screen, and then 
everyone must try to be first to react. 



How to play 

The computer will ask "How many players are there?" 

Tell the computer, which will then ask for the player's names. 

Player One uses key A, player Two uses key B and so on. 

If you cheat and move early however, the computer will tell 
everyone "Guess who cheated" "It was ......." 
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The winner will be identified and their reaction time will be 
shown. 



The program 



10 


REM FIRST 


20 


MODE 2 


30 


BORDER 4 


40 


INPUT "How 


50 


IF N<1 OR 



ONE 



many players ars there ";N 
N>9 THEN PR I NT: PR I NT "I'm af 
raid that you can only have from 1 to 9 
players" : PR I NT: PR I NT: GOTO 40 
60 DIM n*(N):F0R L=l TO N 
70 PR I NT "Name of player ";15" :";: INPUT 
n*<l) 

6)0 IF n*(l)="" THEN GOTO 70 
90 NEXT 1 
100 MODE 

110 IF RND(l) >0. 997 THEN GOTO 210 
120 k*=INKEYfr>: IF Kt>="" THEN GOTO 110 
130 FOR L=50 TO 600 STEP 5 
140 SOUND 1,I_,5:NEXT L 

150 S=ASC(K$)~ASC ("H"> : IF S< 1 OR S>N THE 
N PRINT" ILLEGAL KEY": FOR L»l TO 2000: NEX 
T L:G0T0 100 
160 MODE 2 
170 LOCATE 1,8 

180 PR I NT "HEY EVERYONE. . . GUESS WHO JUST 
CHEATED " 

190 PRINT" It was "5n*(S> 

200 FOR L=l TO 2000: NEXT L:GOTO 100 

210 REM MAKE BLOCK APPEAR 

220 LOCATE 6, 10: PRINT "PRESS NOW" 

230 0=0 

240 C=C+1:K*=INKEY*:IF K*="" THEN GOTO 2 

40 

250 S=ASC(K*)-ASC("@") 

260 IF S<1 OR S>N THEN GOTO 150 

270 MODE 2 

280 LOCATE 1, 10 

290 PRINT N*<S>;" wins" 

300 LOCATE 1, 15 
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310 PRINT "With a reaction count of s "5 

C 

320 FOR Q=l TO 4000: NEXT Q 

330 BOTO 100 



WEIGHTLIFTER 




Well here at last is your chance to prove that you should have 
been selected for the last Olympics - as a weightlifter? 

Your friends will probably tell you that you haven't got the 
strength to lift yourself from your chair but now you can prove 
them wrong as you snatch, press and lift with the best of 
them. 

On the screen you will see a man, his weights and speed tester 
- see how you do on your own. 



How to play 

Just like the real thing the lift must be completed in four 
different moves and each one must be properly executed or a 
foul sign will appear and you will have to begin again. 
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At the beginning of each movement a small star will move 
swiftly across the screen from left to right and you must stop 
it between two points to begin the lift. 

To stop the star press the SPACE bar. 

Another little problem is that the better you become at lifting 
the weights the faster the star will move until - we believe - 
you won't be able to help your alter ego win a medal but we 
could be wrong. 



The program 



10 REM WEIGHTLIFTER 

20 GOSIIB 2000 

30 SC=0: WEIGHT* 100 

40 F=20 

100 MODE 1:N=1 

110 GOSUB 3000 

120 GOSUB 1000 

130 LOCATE 1,20: PR I NT "SCORE : " « SC 

1 40 LOCATE 20 , 4 : PR I NT " NOW LIFTING : " s WF I 

GUT 

145 IF INKEY*<>"" THEN GOTO 500 

150 IF RND>0.008 THEN GOTO 150 

160 Q=0 

1 70 Q=Q+ 1 : LOCATE Q , 1 4 

180 PRINT"*"!! 

185 FOR T=l TO F:NEXT T 

190 IF INKEY*<>"" THEN GOTO 400 

200 IF GK40 THEN GOTO 170 

210 GOTO 500 

400 IF GK15 OR Q>22 THEN GOTO 500 

410 IF N<4 THEN N=N+1 : SC=SC+WEIGHT*N/ 10: 

LOCATE 1, 14: PRINT" 

" ; : GOTO 1 1 
420 LOCATE 25, 6: PRINT"LIFTED !!!" 
430 FOR B=l TO 26 

440 SOUND 1,8*20,10: BORDER B:NEXT B 
450 WEIGHT=WEIGHT+10 
460 IF F>1 THEN F=F-1 
470 GOTO 100 
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500 REM FOUL LIFT 

510 LOCATE 25, 6: PR I NT "FOUL" 

520 FOR W=l TO 200: NEXT W 

530 LOCATE 1 ,23: PRINT" YOU MADE IT TO " 5 W 

EIGHT; " POUNDS" 

540 IF INKEY*=" " THEM GOTO 540 

550 IF INKEY*<>" " THEN GOTO 550 

560 RUN 

900 REM CLEAR WINDOW 

910 WINDOW 1, 10, 1, 10 

920 CLS 

930 W I NDOW 1,40,1, 25 

990 RETURN 

1000 REM DRAW LIFTER IN POSITION (N) 

1010 GOSUB 900 

1020 ON N GOTO 1 100, 1200 , 1300,, 1400 

1100 PLOT 64, 379: DRAW 64, 349s DRAW 94,349 

:DRAW 94, 379: DRAW 64,379 

1110 PLOT 79, 349: DRAW 79, 300: DRAW 39,240 

:PLOT 79, 300: DRAW 119,240 

1120 PLOT 39, 31 2: DRAW 39, 320: DRAW 79,335 

:DRAW 119, 320: DRAW 119,312 

1130 PLOT 16, 265: DRAW 142,265 

1140 PLOT 17, 240: DRAW 17, 290: PLOT 18,240 

:DRAW 18, 290: PLOT 19, 240: DRAW 19,290 

1150 PLOT 139, 240: DRAW 139,, 290: PLOT 140, 

240: DRAW 140,, 290: PLOT 14 1,240 s DRAW 141,2 

90 

1199 RETURN 

1200 PLOT 64, 364: DRAW 64, 334: DRAW 94,334 
:DRAW 94, 364: DRAW 64,364 

1210 PLOT 79, 334: DRAW 79,290 

1220 PLOT 39, 240: DRAW 64, 290: DRAW 94,290 

;DRAW 119,240 

1 230 PLOT ' 39 , 265 : DRAW 39 , 273 : DRAW 79 , 320 

:DRAW 119, 273: DRAW 119,265 

1240 PLOT 16, 265: DRAW 142,265 

1 250 PLOT 1 7 , 240 : DRAW 1 7 , 290 : PLOT 1 8 , 240 

:DRAW 18, 290: PLOT 19, 240: DRAW 19,290 

1260 PLOT 139,240:DRAW 139,290:PL0T 140, 

240: DRAW 140, 290: PLOT 141 ,240: DRAW 141,2 

90 

1299 RETURN 

1300 PLOT 64, 379: DRAW 64, 349: DRAW 94,349 
:DRAW 94, 379: DRAW 64,379 
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1310 PLOT 79, 349: DRAW 79, 300: DRAW 39 ,,240 

:PLOT 79, 300: DRAW 119,240 

1 320 PLOT 52 ,341: DRAW ' 52 , 335 : DRAW 60 ,312 

sDRAW 79, 335: DRAW 98, 31 2: DRAW 106, 335: DR 

AW 106,341 

1330 PLOT 16, 341: DRAW 142,341 

1340 PLOT 17, 316: DRAW 17, 367: PLOT 18,316 

."DRAW IS, 367: PLOT 19, 3.16: DRAW 19,367' 

1350 PLOT 139, 316: DRAW 139,, 367: PLOT 140, 

316: DRAW 140, 367: PLOT 141, 316: DRAW 141,. V 

67 

1399 RETURN 

1400 PLOT 64, 379: DRAW 64, 349: DRAW 94,349 
:DRAW 94, 379: DRAW 64,379' 

14.10 PLOT 79,, 349: DRAW 79, 300: DRAW 39,240 

:PLQT 79, 300: DRAW 119,240 

1 420 PLOT 52 , 379 : DRAW ' 64 , 335 : DRAW 94 „ 335 

:DRAW 106,379 

1430 PLOT 17, 399: DRAW 17, 367: DRAW 18,367 

:DRAW 18, 399: DRAW 19,, 399: DRAW 19,367 

1440 PLOT 139, 399: DRAW 139, 367: DRAW 140, 

367: DRAW 140, 399: DRAW 14 1,399: DRAW 141,3 

67 

1450 PLOT 16, 379: DRAW 142,379 

1499 RETURN 

2000 REN INSTRUCTIONS SUBROUTINE 

2010 MODE 1 

2020 LOCATE 10, 1 : PRINT"WEI6HTLIFTER" 

2030 LOCATE 9, 2: PR I NT "=====<==========:==■' 

2040 LOCATE 1,5: PRINT" In this game you t 
ry to help Feeble Fredas he attempts to 
lift weight's. " 

2050 PRINT: PR.INT"Un-fortunately, his timi 
ng isn't all it could be, and so you. ne 
ed to tell him when he must move to th 
e next stage 

of the lift. " 
2060 PRINT:PRINT"As the timing light fli 
es across the sceen, you must shout a 
t Fred to lift while it is between the 

two critica 
1 points. " 

2070 LOCATE 13,20: PRINT"< SPACE >" 
2080 IF INKEY*=" " THEN GOTO 2080 
2090 IF INKEYSO" " THEN GOTO 2090 
2099 RETURN 
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3000 REM mark critical points 

3010 INK 2, 11 

3020 PEN 2 

3030 PLOT 1 , 1 92 : DRAW 639 ,192: PLOT 1 ,17' 

DRAW 639, 174 

3040 LOCATE 15, 13: PR INT CHR*(214) 

3050 LOCATE .22, 13: PRINT CHR*(215) 

3060 LOCATE 15,15: PR I NT CHR$ ( 2 1 3 ) 

3070 LOCATE 22,15:PRINT CHR*<212) 

3090 INK 1,24: PEN 1 s BORDER 5 

3099 RETURN 



KALEIDOSCOPE 






Once upon a time, before the advent of sophisticated 
computers, we used to have little cardboard tubes with glass 
panels and pieces of coloured card inside. We used to shake 
them and peer into a little hole in the end and see a wonderful 
collection of shapes, colours and sizes all in lovely symmetry. 

Well, enough of all this nostalgia. This is the age of the 
computer so here is an up to date version of an old Victorian 
parlour toy. We have included this program because it can be 
typed in by the youngest member of the family in ten minutes 
and they will then have the immense satisfaction of having 
'entered' and 'run' their own computer program with 
beautifully colourful results. 



Programming hint 



This is a handy little program for entering into a main 
program as a colourful sub-routine. Simply enter a loop sub- 
routine and insert this listing. 
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The program 



10 REM KALEIDESCOPE 

20 K*=CHR*<207> 

30 DEFINT A- 2 

40 MODE 

50 FOR L=0 TO 15 

60 INK L,L 

70 NEXT L 

80 BORDER 5:: LOCATE 1,25: PAPER 5s PRINT" 

I) n 

90 PAPER INT(RNDU)*16) 

100 PEN IIMT(RND(1)*16) 

110 GOSUB 150 

1 20 I MK RND ( 1 ) #9+6 , RMD ( 1 ) #25 

130 GOTO 90 

150 REM PLOT KALE ID POINTS 

1 60 X--= I NT ( RMD ( 1 ) #20+ 1 ) : Y= I NT ( RND < 1 ) #24+ 1 

) 

170 LOCATE X,Y: PRINT K* 

180 LOCATE 21-X,Y: PRINT K* 

190 LOCATE 21--X, 25- Y: PRINT K* 

200 LOCATE X, 25- Y: PRINT K* 

210 RETURN 



ZOMBIE MAZE 




Fingers at the ready! 

Eyeballs glued to the screen! 

Nerves stretched to the limit! 

You are off and running through the maze as FOUR monsters 
converge on you for an inevitable end. 

Stay alive as long as you can it's more fun that way. 



How to play 

Use the arrow keys to move your hunted little man around the 
maze for as long as you can. You have two moves to the 
monster's one - but there are four of them. 
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Programming hints 

You might like to knowthatthetune being played behindyour 
little man begins at line 790. If you are musical you could 
change it to the funeral march. 



If you want to change the shape of the maze after a few games 
then alter the data in line 980 onwards. The 1 forms the walls 
and the the gaps. Remember you must always have 20 
characters on each line otherwise the maze will not be 
formed. You can have lots of gaps by using but remember 
thatthismeansthe monsters can move faster as well as you. 



The program 



10 REM ZOMBIE MAZE 


20 DEFINT A-Z 


30 SC=0:HS=0 


40 MODE 


50 DEF FNSCR(X,Y)=TEST<32*X-20.,40S--16*Y> 


60 ENV 1,1,120,7,24,-5,14 


70 : 


<=2: Y=2sPC=249 


80 1 


:::$=»" 


90 MC=254 


1 00 


A<1>=19:BU>=2:A<2>=2:B<2>=23 


110 


A ( 3 ) =9 : B ( 3 ) = 1 : A ( 4 ) = 1 9 : B ( 4 > =23 


120 


NUM=1 


1 30 


GOSUB 650 


140 


SOUND &81,0 


150 


SOUND &82,0 


160 


ON SQ(1> GOSUB 790 


170 


EVERY 10,0 BOSUB 410 


ISO 


EVERY 9,1 GOSUB 520 


190 


FLAG=0 


200 


REM MAIN LOOP 


210 


SC=SC+1:IF SOHS THEN HS=SC 


220 


DI 


230 


LOCATE 1,25 


240 


PEN a 


250 


PRINT "SCORE :"; 


260 


PRINT USING "######" ;SC; 
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270 
230 
290 
300 
310 
320 
330 
340 
NEX 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
E X 
490 



EI 

IF FLAG-0 THEN GOTO 200 
SOUND &C1,0 
SOUND &C2,0 
DI 

Z=REMAIN<0) : Z=REMAIN(1> 
LOCATE 7,10:PEN 7:PRINT"GAME END" 
FOR Z=l TO 400: INK 7, INT (RND ( 1 ) #24) : 
T Z: INK 7, 13 
FOR Z=l TO 300: NEXT 



IF SC=HS THEN GOSUB 

A*=IIMKEY*: IF A$=" " 

A*=INKEY*: IF A*<>" ' 

EI 

SC=0:GOTO 40 

REM PLAYER ROUTINE 

IF INKEY<28)=0 THEN 

INKEY(63>=0 

INKEY(30)=0 

INKEY(71)=0 



Z 

860 

THEN GOTO 370 
' THEN GOTO 380 



THEN 
THEN 
THEM 



CY=~1 
CX = 1 
CY=1 
CX=-1 



IF 

IF 

IF 

DI 

TX=X+CX : TY=Y+CY: CX=0: CY=0 

COL=FNSCR(TX,TY) : IF C0L=5 THEN LOCAT 

Y: PRINT" "; : X=TX: Y=TY: GOTO 490 

P0497-PC: LOCATE X,Y:PRINT CHR$(PC>5 



500 
510 
520 
530 
-MC 
540 
550 
560 
570 



EI 

RETURN 

REM MONSTER ROUTINE 

NUM=NUM+1:IF NUM=5 THEN 



NUM=1:MC=509 



TRY-0 

CA=SGN(X-A(NUM) ) : CB=SGN < Y-B (NUM) ) 

TA=A (NUM) +CA: TB=B (NUM) +CB 

COL=FNSCR(TA,TB) : IF C0L=5 THEN LOCAT 
E A (NUM) ,B (NUM): PRINT" " ; : A (NUM) =TA: B (NLi 
M)=TB:GOTO 620 

580 IF C0L=3 THEN FLAG=-1 : RETURN 
590 TRY=TRY+1:IF TRY=3 THEN GOTO 620 
600 C A=SGN ( I NT ( RND*3 ) - 1 ) : CB=SGN ( I NT ( RND* 
3)~1) 

610 GOTO 560 

620 MC=509-MC: LOCATE A (NUM) , B (NUM) 
630 DI:PEN 11:PRINT CHR* (MC) ; : PEN 3 
640 RETURN 
650 REM DRAW THE MAZE 



100 

660 SYMBOL 240 , &CC , &33 , &CC , ?<33 , &CC , &33 , & 

CC,&33 

670 MODE On PAPER 5: PEN 12 

680 BORDER 6 

690 RESTORE 980 

700 FOR L=l TO 24 

710 READ L* 

720 FOR M=l TO 20 

730 D=VAL(MID*<L*,M, 1) ) 

740 IF D=l THEN PRINT CHR$C240)5 ELSE PR 

INT " "; 

750 NEXT M 

760 NEXT L 

770 RESTORE 

730 RETURN 

790 REM PLAY NEXT NOTE OF TUNE 

800 READ NOTE 

810 IF N0TE=-1 THEN RESTORE: GOTO 800 

820 SOUND & 1 1 , NOTE , 50 ,0,1, , 

830 SOUND &A , NOTE*0 .. 69 , 50 , ,1,0,0 

840 ON SG!(1) GOSUB 790 

850 RETURN 

860 REM GOT HIGH SCORE 

870 PEN 8 

880 LOCATE 6, 14: PRINT "HIGH SCORE" 

890 FOR Z=l TO 200 STEP 5s INK 8,INT(RND< 

1 ) *24 ) 

900 SOUND ?<83,ABS(500~Z*5> , 15 

910 NEXT Z 

920 RETURN 

930 REM TUNE DATA 

940 DATA 478,379,319,379 

950 DATA 358,284,239,284 

960 DATA 319,379,319,358,379,426,478,239 

970 DATA -1 

980 DATA" 11111111111111111111" 

990 DAT A " 1 000000 1 0000 1 000000 1 " 

1 000 DATA "101111 000 1 1 000 111101" 

1 1 DATA " 1 1 00 1 1 0000 1 1 00 1 1 " 

1 020 DATA "1011 000 1 1 00 1 1 000 1101" 

1 030 DATA " 1 1 00 1 00 1 00 1 00 1 00 1 1 " 

1 040 DATA "101011011 00 110110101" 

1 050 DATA " 1 0000 101 0000 1 1 0000 1 " 

1 060 DATA "1101 000 101101 000 1011 " 

1070 DATA" 1001 111101101111 1001 " 

1 080 DATA " 1 00000 1 00 1 1 00 1 00000 1 " 
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1 090 DATA "10111 000 1111 000 11101' 

1 1 00 DATA " 1 0.0000 1 00 1 1 00 1 00000 1 ! 

1110 D A T A ' ' 1 1 ' 

1120 DATA" 101 1101010010101 1101' 

1 1 30 DATA " 1 00000 1 000000 1 00000 1 ! 

1 1 40 DATA " 1 1 00 1 1 1 1 00 1 1 1 1 00 1 1 ' 

1 1 50 DATA " 1 000 1 1 1 00 1 1 1 000 1 ! 

1 1 60 DATA " 1 111011 1 00 1110111 1 ] 

1170 D A T A ' * 1 1 1 1 1 1 ' 

1 1 80 DATA " 1101 1 1 1 1 1 1 1 1 1 ' 

1 1 90 DAT" A M 1 00 1 1 1011 1 1 1 00 1 ' 

1 200 DATA " 1 0000 1 000 1 1 000 1 0000 1 ' 

1210 DATA" 11111111111 111111111' 



PONTOON 




It's gamblers corner again as you pit your wits, and money, 
against the Amstrad croupier at the old classic game. By the 
way you can't cheat when you show your hand as your 
computer already knows what you are holding. 

The object of the game, in case you have never strayed into a 
card school, is to achieve a score of 21 in as few cards as 
possible. If you over buy, or over twist, and score more than 
21 you are 'bust' and you lose your stake. Aces count a 1 or 1 1 
except when you receive two aces in a deal, In this case your 
hand will stand as 12. 



How to play 

The computer will deal your first two cards and ask if you 
would like to T (Twist, take another card without increasing 
your stake); S (Stay on your existing, or eventual hand); B 
(Buy another card); F (Fold if you think your hand is useless, 
but remember you will lose your stake money, and give you 
another hand). 
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If you buy, or twist, to a five card trick (five cards totalling 21 
or less) you will beat the computer, unlesss it had a pontoon 
(21). 

Press the key corresponding to your choice at each stage. 
There is no need to press ENTER at each stage. 

When buying a card, type in the amount you wish to bet and 
press ENTER. 

Remember, if you lose your shirt on this game you won't have 
to part with it. 



The Program 



10 REM PONTOON 

20 MODE 2: BORDER 15 

30 V=0 

DIM 0(52) 

DIM P(10) ,M(2) 

GOSUB 760 

M=100 

REM HAND LOOP 

CLS 

00 M=M--2:IF M<0 THEM GOTO 700 

10 PRINT"You h'ave ";M;" pounds left" 

20 BET=2 

30 PR I NT "Your cards :" 

40 GOSUB 900 

50 GOSUB 980: PRINT" The "K* 

60 P(1>=V: GOSUB 980: GOSUB 900 

70 PRINT " The " ; K*: P (2) =V: GOSUB 900 

80 N=2 

190 IF P(l)=l THEM P(l)=ll 
200 IF P(2)=l AND P(1)<>11 THEN P(2)=H 
210 IF P(l)+P(2)=21 THEN PRINT: PRINT" Yo 
u have got a PONTOON i ! ! " 
220 SP=P(1)+P(2) 
230 REM PLAYER CHOICES 
240 PRINT "Twist / Stick / Buy / Fold ? 



250 A*=INKEY*: IF A*<>"" THEN GOTO 250 
260 A*=INKEY*:IF A*=" " THEN GOTO 260 
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170 IF A$<>"T" AND A*< 



AND A$<>"B' 



ND A$<>"F" THEN GOTO 250 

280 IF A*="F" THEN PRINT"0„ K.. You lose 

your stake": GOSUB 900s GOTO 90 

290 IF A*="S" THEN GOTO 400 

300 IF A$="B" THEN GOSUB 930: PR INT" 0.. K. 

Good luck" 
310 N=N+1:REM NEXT CARD 
320 GOSUB 900: GOSUB 980 
330 PR I NT "The " ; K* 
340 P<N)=V:SP=0 
350 FOR L=l TO N: SP=SP+P (L) : NEXT L 

.360 IF SP>21 THEN PR I NT "BUST. " : GOT 

400 

370 IF M>4 THEN PRINT "FIVE CARD TRICK.,.. 



380 IF SP=21 THEN PR I NT "TWENTY ONE. 



390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 



520 

530 

540 



GOTO 210 

REM Now the computer plays 

SP=0 

FOR L=l TO N:SP=SP+P(L> :NEXT L 

PRINT: PRINT"My cards i" 

GOSUB 900 

MT=0: GOSUB 980: PR I NT" The " 5 K* 

MU)=V:GOSUB 900: GOSUB 980 

PRINT" The ";K*: GOSUB 900:M(2)»V 

IF M(1>=1 THEN M(1>=11 

M(2)=l AND MtlXMi THEN M(2)=ll 
M(l)+M(2)=21 THEN GOTO 610 



IF 
IF 
IF 



P(l)+P(2)=21 AND N=2 THEN GOTO 65 



MT=M(1)+M<2) 

IF MT<SP AND SP<=21 THEN 

IF N<5 THEN PRINT" I will 

UB 900: GOTO 610 

550 PRINT" I will twist..." 

560 GOSUB 980: GOSUB 900 

570 PRINT" The " ; K* 

580 MT=MT+V: GOSUB 900 

590 IF MT>21 THEN PRINT" I 

GOTO 650 

600 GOTO 530 

610 REM PLAYER 



GOTO 
stick 



30 

' : GOS 



am bust,, 



LOSES 



620 PRINT: PR I NT "You lose 
630 GOSUB 900: GOSUB 900 



that hand" 
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640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 

a oo 
o l o 

820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
ven 
960 
970 
980 
990 
1000 



GOTO 80 

REM COMPUTER LOSES 



that hand" 



PRINT: PR I NT "You win 

GOSUB 900:G0SUB 900 

M=M+2*BET 

GOTO 80 

REM HERE WHEN PLAYER IS BROKE 

PRINT: PR I NT "You are broke" 

GOSUB 900 

PRINT"Come back on a luckier day" 

GOSUB 900 

END 

REM RANDOMIZE PACK 

PR I NT "+++++++ NEW PACK +++++++" 

FOR L=l TO 52 

C(L)==L:NEXT L 

REM SHUFFLE 

FOR L=l TO 100 

IF V>10 THEN V=10 

A=INT<RND(1)*52+1) 

B=INT<RND(1>*52+1> 

T=C(A) :C(A)=C(B) 

C(B)=T 

NEXT L 

Q«l 

RETURN 

REM A SHORT DELAY 

FOR ZZ=1 TO 700: NEXT ZZ 

RETURN 

REM INCREASE THE BET BY BUYING 

PR I NT "BUY -for how much "; 

INPUT BB:IF M-BB<0 THEN PR I NT "You ha 

t got that much money": GOTO 940 

BET=BET+BB: M=M-BB 

RETURN 

REM CARD IN K 

REM NAME IN K* 
K=C(Q) :Q=Q+1: IF Q=53 THEM GOSUB 760 
1 10 S= I NT ( ( K- 1 ) / 1 3 ) : V=K- 1 3*S 
1020 ON V GOSUB 1060,1070,1080,1090,1100 
., 1110, 1120, 1130, 1140, 1150, 1160, 1170, 1180 
1030 
1040 
1 050 
1 060 
1070 
1080 






ON S+l GOSUB 1190,1200,1210,1220 

IF V>10 THEN V=10 

RETURN 

K*="Ace ": RETURN 

k*="Two ".-RETURN 

k$="Three ": RETURN 
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1090 k*~"Four " 5 RETURN 

1 100 k*="Fi ve " s RETURN 

1110 k*-"Six ": RETURN 

1120 k*~ M Seven ": RETURN 

1130 k*=" Eight " a RETURN 

1140 k*~"Nine ": RETURN 

1150 k*-"Ten " s RETURN 

1160 k*="Jack n : RETURN 

1170 k*™"Queen ": RETURN 

1180 k*="King M : RETURN 

1190 k*=k*+"o-f Clubs": RETURN 

1200 k*=k*+"of Diamonds": RETURN 

1210 k*=k*+"o-F Hearts" 2 RETURN 

1220 k*=k*+"of Spades" s RETURN 



MORSE ENCODER 




If you are planning to go sailing in the near future, then this 
program will help you brush up your morse code before you 
go. 

Can you remember what to tap for S.O.S.? 

It's ...---... 

That's all the help we are going to give you. Hope you don't 
have to use it. 

When you type a message into this program, your computer 
will play it back in morse code. A good way to test each 
message is to have someone else enter the message, and for 
you to sit down on the other side of the room and see if you 
can decode it. 
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How to play 

Just press the alphabet keys of your choice. 

Programming Hint 

If you feel that the play back is too slow, or too fast, you can 
change the speed by altering S=12 in line 20 of the program. 

The program 



10 REM MORSE ENCODER 

20 S=12:D=4 

30 DIM M$<26) 

40 FOR L=l TO 26: READ M*<L) 

50 NEXT L 

60 MODE 1 

70 BORDER 13 

80 LOCATE 1,6 

90 PRINT "Message to transmit :" 

100 LINE INPUT "",1$ 

110 FOR L=l TO LEN(I$) 

120 CH*=MID*(I*,L., 1) 

130 IF CH*>="a" AND CH*<«="z" THEN CH*=CH 

R* ( ASC ( CH* ) -ASC ( " a " ) + ASC ( " A " ) ) 

140 IF CH*<"A" OR CH*>"Z" THEN GOSLJB 210 

:GOTO 160 

150 GOSUB 350 

160 NEXT L 

170 LOCATE i,20:PRINT"Transmission compl 

ete" 

180 FOR L=l TO 2000: NEXT L 

190 CALL &BB06 

200 RUN 

210 REM PAUSE BETWEEN WORDS 

220 FOR W=l TO 120*D:NEXT W 

230 RETURN 

240 REM SHORT PAUSE 

250 FOR W=l TO 30*D:NEXT W 

260 RETURN 

270 REM DOT 
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280 SOUND 1, i 30, 3*D: SOUND 1,0,D 
290 GOSUB 240 ' " 

300 RETURN 
310 REM DASH 

320 SOUND 1, 1 30, 9*Ds SOUND l,0,D 

330 GOSUB 240 

340 RETURN 

350 REM SOUND ONE CHAR 

360 X=ASC(CH*)-ASC("A")+1 

370 F$=M$(X) 

380 FOR M=l TO LEN<F*> 

OTO ^ MID$(F *' |V| ! - 1 >="S" THEN GOSUB 270: G 

400 GOSUB 310 
410- NEXT M 
420 RETURN 

430 DATA SL,LSSS,LLS,LSS,S,SSLS,LLS 
440 DATA SSSS,SS,SLLL,LSL,SLSS,LL 
450 DATA LS,LLL,SLLS,LLSL,SLS,SSS,L 
460 DATA SSL,SSSL,SLL,LSSL,LSLL,LLSS 



SAFECRACKER 




Here is your chance to see if you could be of any use to 
Smiley's People as an inside man. 

We have set up a series of numeric codes for you to 'crack' in 
order to open the safe. 

Digits range from 1 to 8 inclusive. 



How to play 

Your computer will select, at random, it's own sequence and 
ask for your first choice of four numbers. 

Enter your numbers and press ENTER. 

After your first 'guess' your Amstrad CPC will put up it's 
'mark' to show you how many of your numbers are correct, 
and how many are in the right place. 
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You will not be told which of your numbers is in the correct 
place, only that one, or more, is in the correct place. You will 
still have to decide for your next move which of your first 
selection is correct. 

We told you it was a test for Smiley's People didn't we. 



The Program 



8 



THEN GOTO 190 



10 REM SAFECRACKER 

20 DIM C(4),G(4),T(4) 

30 GOSUB 270 

40 MODE 1: BORDER 

50 G=0:F=0 

60 PEN 1 

70 GOSUB 360 

80 G=G+1: IF G=ll 

90 GOSUB 390 

100 GOSUB 550 

HO IF F=0 THEN GOTO SO 

120 REM CORRECT DEDUCTION 

130 LOCATE 1, 19:PRINT"C0RRECT 

fe swings gently open" 

140 FOR L-l TO 4 

150 PRINT C(L) ; " 

160 NEXT L 

170 LOCATE 9, 21 .-PRINT "IN »sGs 



The Sa 



attempts 



HIDDEN 



180 GOTO 240 

190 REM THE COMBINATION REMAINED 

200 LOCATE 1 , 14: PRINT"A1 arm bells ring o 

ut loudly": LOCATE 1 , 16: PRINT"The time sw 

i ten has been triggered" 

210 LOCATE l,19..pRINT"The combination wa 



220 
230 
240 
250 
260 
270 
280 



LOCATE 1,21: PRINT" » ■ 

FOR L=l TO 4: PRINT C(L)i" "i 

IF INKEY*-" " THEN GOTO 240 

IF INKEY*<>" " THEN GOTO 250 

RUN 

REM SET THE COMBINATION LOCK 

C(1)=INT(RND(1)*8+1> 



:NEXT L 
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290 FOR L=2 TO 4 

300 C(L)=INT(RND(1)*8+1) 

310 FOR 1 = 1 TO L--1 

320 IF C(L)=C(I) THEN C (L) =INT (RND ( 1 ) *8+ 

1) 

330 NEXT I 

340 NEXT L 

350 RETURN 

360 REM TITLE THE COLUMNS 

370 LOCATE 4, 1 : PRINT" YOUR GUESS my mark 

tt 

380 RETURN 

390 REM GET A GUESS INTO GO 

400 L=l 

410 IF INKEY*<>" " THEN GOTO 410 

420 D*=INKEY*: IF D*="" THEN GOTO 420 

430 D=ASC(D$) 

440 IF D=127 THEN GOTO 500 

450 IF D=13 THEN GOTO 530 

460 IF D<ASC("1") OR D>ASC("9") THEN GOT 

410 

470 IF L=5 THEN GOTO 410 

4S0 LOCATE 3+L*2, Q+3: PEN 2: PR I NT CHR'-MD) 

• 

490 G ( L ) =D- 48 : L=L+ 1 : GOTO 4 1 

500 L=L-1:IF L=0 THEN L=l 

510 LOCATE 3+L*2,G+3: PRINT " "5 

520 GOTO 410 

530 IF L<5 THEN GOTO 410 

540 RETURN 

550 REM SCORE GO AGAINST THE COMB I NAT 10 

N 

560 B1«0:W1=0 

570 FOR H=l TO 4 

580 IF G(H)=C(H> THEN B1=B1+1 

590 NEXT H 

600 FOR L=l TO 4: T (L) =C <L) : NEXT L 

610 FOR J=l TO 4 

620 IF T(J)=-1 THEN GOTO 660 

630 FOR L=l TO 4 

640 IF T(J)=G(L) THEN W1=W1+1 : T ( J ) =- 1 

650 NEXT L 

660 NEXT J 

670 W1=W1-B1 

680 IF Bl=4 THEN F=l 
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690 LOCATE 15,3+G 
700 PEN 3 

710 PRINT Bl; " ";wi 
720 RETURN 



BIORYTHM GRAPHING 
AND PREDICTION 




Don't worry it isn't going to hurt you, just lie back and enjoy 
the sensation of your life flashing past you. 

In simple terms this is a system which will allowyou to predict 
the type of day you are going to have, or check and see if the 
day just passed, is as bad as you think possible. 

You type in the data and your Amstrad CPC will tell you, and 
show you the shape of the day to come. It will also give you an 
idea of the days on both sides of the day in question. 

Imagine the potential in drawing up friend's charts and 
sending them as Christmas or birthday presents. 



How to play 

The Amstrad CPC will ask you to enter your birth date and the 
date of the day on which you are using the program. 
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You will then be asked for the year, month and day/date of the 
week you wish to predict. When you are asked for the day 
remember to enter the day/date not just any day as there are, 
of course, several Tuesdays in a month. 

Press ENTER key after each entry. 

After you key in the final information the computer will 
produce a chart of your physical, emotional and intellectual 
state on the day in question. As we said before, you will also 
see a picture of the days on either side and you may then 
decide not to leave your bed for the next week. 

To clear, type RUN and return to the menu. 
The Program 



10 REM BIORHYTHM GRAPHING AND PREDICTION 

20 MODE 1: BORDER 2 

30 LOCATE 1,5;PRINT"BIRTHDATE ENTRY s" 

40 GOSUB 290 

50 BY=Y:BM=M:BD=D 

60 CLS: LOCATE 1 , 5: PR INT" DATE TO INVEST I G 

ATE ENTRY : " 

70 GOSUB 290 

80 GOSUB 430 

90 EM=DAYS~28*INT (DAYS/28) 

100 IT=DAYS-33*INT (DAYS/33) 

1 10 PH=DAYS-23*INT (DAYS/2.^) 

120 CLS: PEN 1 : LOCATE 6,1 

130 PR I NT "PHYSICAL CYCLE" 

140 0=PH/23*360:MU=28/23 

150 C=l: GOSUB 550 

160 LOCATE 6, 2: PEN 2:C=2 

170 PR I NT "EMOTIONAL CYCLE" 

180 0=EM/28*360:MU=1 

190 GOSUB 550 

200 LOCATE 6, 3: PEN 3:C=3 

210 PRINT" INTELLECTUAL CYCLE" 

220 0=IT/33*360:MU=28/33 

230 GOSUB 550 

240 PLOT 384, 10: DRAW 384,250 
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• THEN GOTO 260 
THEN GOTO 270 



250 FEN 1 

260 IF INKEY*<>'" 

270 IF INKEY$="" 

280 RUN 

290 REM READ IN A DATE 

300 LOCATE 1 , 1 1 : PRINT" YEAR. . .. . 

": LOCATE 10,11 
310 INPUT Y:IF YOINT(Y) THEN GOTO 300 
320 LOCATE 1 , 16: PRINT "MONTH 

": LOCATE 10, 16 
330 INPUT M* 

340 I F LEFT* ( M* , 1 ) > " " AND LEFT* < M$ , 1 > < == 
"9" THEN M=VAL<M*> : GOTO 390 
350 RESTORE 640 
360 M=0:FOR L=l TO 12 

370 READ T*:IF T*=LEFT* <M*, 3) THEN M=L 
3B0 NEXT L 

390 IF M=0 OR MO INT (M) OR M>12 THEN GOT 
320 
400 LOCATE 1 , 2.1 : PR I NT "DAY 



410 INPUT 
THEN GOTO 



D: IF 
400 



": LOCATE 10,21 
D<1 OR D>31 OR D<>ilMT(D) 



420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

H 

620 

630 



RETURN 

REM FIND THE NUMBER OF DAYS 

DP=0:DM=0 

DF-365. 25*Y: DM=365. 25*BY 

RESTORE 680 

FOR L=l TO 12 

READ T 

IF M=L THEM DP=DP+T 

IF BM=L THEN DM=DM+T 

NEXT L 

DP=DP+D: DM=DM+BD 

DAYS=DP-DM 

RETURN 

REM DRAW A CYCLE 

Y=70+60*SIN< (-360*MU+0)*PI/1S0) 

X=48 

FOR TH=-360 TO 350 STEP 2.5 

OX=X: X=TH/4. 5+128: OY=Y 

Y=70+60*SI N ( ( TH*MU+Q ) *P I / 1 80 ) 

PLOT 3*0X,2*0Y,C:DRAW 3*X,2*YsNEXT T 



FOR L=l TO 
RETURN 



3000: NEXT L 
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640 
650 
660 
670 
680 



DATA JAN, FEB, MAR 

DATA APR,MAY,JUN 

DATA JUL, AUG \ SEP 

DATA OCT, NOV, DEC 

DATA 0,31,59,90,120,151 

304,334 



181,212 



DICE 




If you are bored with shooting down missiles and defending 
the world from alien attack then here is a game to test your 
gambling skill. 

The Amstrad CPC will 'throw' five dice for you and you must 
try to achieve the best sequence possible for the greatest 
score. 

Possibilities to achieve highest scores are: 

One pair 

Three of a kind 

Two pair 

Full house (Three of a kind and two of a kind) 

Four of a kind 

Low run 

High run 

Five of a kind 
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How to play 



After the computer's first 'throw' you can hold the dice by 
using keys 1 to 5. Press R to release all the dice. Use SPACE to 
roll the dice free. You have ten rolls to make your high score 
and give your partner a target to beat. 



The Program 



10 
20 
30 
40 
50 
60 
70 
80 
90 
1 00 

110 

120 



REM DICE 

MODE 1: BORDER 12 
DIM D<5) ,F(5) ,S(6) 
T=10 
SC=0 

GOSUB 1110 
PEN 1 
T=T-1 
FOR L=l 
LOCATE 



IF T=0 THEN GOTO 490 
TO 5:F(L)=0:MEXT L 
1,7: PRINT" 



LOCATE 
LOCATE 



1, llzPRINT" 
1, 15: PRINT" 



130 LOCATE 1,20: PRINT" 

1! 

140 GOSUB 220 

150 GOSUB 350 

160 GOSUB 220 

170 GOSUB 350 

180 GOSUB 220 

190 GOSUB 620 

200 SC=SC+NS 

210 GOTO SO 

220 REM GENERATE AND SHOW FIVE DICE 

230 FOR L=l TO 5 

240 IF F(L)=1 THEN GOTO 330 

250 Q=INT(RND(l->*60+10) 

260 D(L)=1 

270 FOR E=l TO Q 

280 LOCATE L*3+4,5 

290 D(L)=D(L)+1 
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300 IF D(L)=7 THEN D(L)=1 

310 PRINT CHR$(128+D(L) ) ; 

320 NEXT E 

330 NEXT L 

340 RETURN 

350 REM SET THE STOP FLAGS 

360 LOCATE 8, 2: PRINT"HOLD NOW !!!" 

370 LOCATE 1,7: PRINT" 

it 

380 FOR L=l TO 5: F (L) =0: NEXT L 

390 A*=INKEY*:IF A*<>"" THEN GOTO 390 

400 A*=INKEY*:IF A*="" THEN GOTO 400 

410 IF A*=" " THEN GOTO 460 

420 IF A*="R" THEN GOTO 370 

430 IF A*<"1" OR A*>"5" THEN GOTO 390 

440 A=ASC (A*) -48: LOCATE 3*A+4„ 7: PRINT" X 

450 F(A)=1:G0T0 400 

460 REN FINISHED 

470 LOCATE 8 ,2 ."PRINT" 

tl 

480 RETURN 

490 REN END OF GAME 

500 MODE Is PEN 3 

510 LOCATE 1,11 

520 PRINT"End o-f the Game" 

530 LOCATE 1, 14 

540 PRINT"Your score is s" 

550 LOCATE 9, 17 

560 PRINT SC 

570 LOCATE 6,23 

580 PR I NT "Press < SPACE > to continue" 

590 aS=INKEY*: IF A*=" " THEN GOTO 590 

600 A*=INKEY*:IF ASO" " THEN GOTO 600 

610 RUN 

620 REM SCORE THE DICE 

630 REM RETURN SCORE IN NS 

640 FOR L=l TO 6: S <L> =0: NEXT L 

650 FOR L=l TO 5 

660 S<D<L) )=S(D(L) )+l 

670 NEXT L 

680 Z2=0:F0R L=l TO 6 

690 IF S(L)=1 THEN Z2=Z2+1 

700 NEXT L 

710 Z1=0:F0R L=l TO 6 

720 IF S(L)=0 THEN Z1=Z1+1 

730 NEXT L 
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740 
750 
0T0 
760 
OTO 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 



IF Zl=5 THEN GOSUB 930: GOTO 840 
IF Zi=l AND S(6>=0 THEN GOSUB K 
840 

IF Zl=l AND S<1)=0 THEN GOSUB O 

840 

IF Zl=l THEN GOSUB 1090: GOTO 84C 

IF Zl=2 THEN GOSUB 1030: GOTO 84f 

IF Zl<>3 THEN GOTO 820 

IF Z2=l THEN GOSUB 970: GOTO 840 

IF Z2=2 THEN GOSUB 1010: GOTO 84< 

IF Z2=l THEN GOSUB 990: GOTO 840 

GOSUB 950 

REM SCORE IS NOW IN NS 

REM AND MESSAGE IS IN N$ 

LOCATE 1,11: PR I NT" 



>50 : B 
I?70s G 
) 



870 LOCATE 1,11: PR I NT N* 
880 LOCATE 9, 15: PRINT'SCQRE 



"5NS! " 



890 LOCATE 1 6 , 20 : PR I NT " < SPACE > " 

900 IF INKEY*=" " THEN GOTO 900 

910 IF INKEY*<>" " THEN GOTO 910 

920 RETURN 

930 REM FIVE OF A KIND 

940 N*= "#********* EUREKA ********#*": MS 

=50: RETURN 

950 REM PAIR AND THREE 

960 N*=" ********* FULL HOUSE #**#*#*#■*" : N 

S=30: RETURN 

970 REM TWO PAIRS 

980 N*= "#***** DOUBLE DOUBLE ******•' • NS= 

20: RETURN 

990 REM FOUR OF A KIND 

1000 N$="*******# FOUR TIMES *****##*" :N 

S=l 5: RETURN 

1010 REM THREE OF A KIND 

1020 N*="**#*##* THREE TIMES *•*****•*" : MS 

=10: RETURN 

1030 REM ONE PAIR 

1040 N*="**** MADE FOR EACH OTHER #*#*":: 

NS=7: RETURN 

1050 REM LOW RUN 

1060 N$= "**■*■•**•**** LOW RUN **•*******"• NS 

=24: RETURN 

1070 REM HIGH RUN 

1080 N$= "****##*-** HIGH RUN *********" : N 
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S=40: RETURN 

1090 REM NO SCORE AT ALL 

1100 Z$="*********** ZERO *********** " ;: N 

S=0: RETURN 

1110 REM DEFINE DICE SHAPES 

1120 SYMBOL AFTER 129 

1 1 30 SYMBOL 1 29 , ,0,0,24, 24 , , , 

1 1 40 SYMBOL 1 30 ,3,3, , , ,0,1 92 , 1 92 

1150 SYMBOL 131,3,3,0,24,24,0,192,192 

1 1 60 SYMBOL 1 32 , 1 95 , 1 95 , , , ,0,1 95 , 1 95 

1170 SYMBOL 133,195,195,0,24,24,0,195,19 

cr 

1180 SYMBOL 134,195,195,0,195,195,0,195, 

195 

1190 RETURN 



HUNT THE DAY 




Have you ever wondered if your old dad was 'Fair of Face', 
'Full of Grace', 'Full of Woe', had 'Far to Go' or, hopefully, was 
'Full of Loving and Giving'? 

Now is your chance to find out. 

If you ask any members of your family, or your friends, when 
they were born you will be able to tell them, using this 
program, the actual day of the week when the great event 
happened. 

By the way, this chart is only effective as far back as 1st 
January, 1753 which was when the calendar changed to it's 
present form. Of course, you already knew that didn't you? 

Oh, by the way, we have taken account of leap years just in 
case you thought you could catch us out. 
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How to play 

You will be asked for details of the date you have in mind. 

When you have typed in the data press ENTER after each item. 

When you have completed the requested material your 
Amstrad CPC will do the rest for you. 

The Program 



10 REM HUNT THE DAY 

100 MODE 1 

110 LOCATE l,4:PRINT"Please give the dat 

e you wish to " : PRINT"investigate. " 

120 GOSUB 1000 

130 GOSUB 2000 

140 LOCATE 1,2 

150 PRINT" That was/is/will be a ";T 

* 

160 LOCATE l,21:PRIIMT"Please press <SPAC 

E> when ready" 

200 IF INKEY*=" " THEN GOTO 200 

210 IF INKEY*<>" " THEN GOTO 210 

299 RUN 

1000 REM get a date 

1010 LOCATE 1, 11:PRINT"YEAR 

11 : LOCATE 10, 11 
1020 INPUT y: IF y<1753 OR yOINT(y) THEN 

GOTO 1010 
1100 LOCATE 1, 14:PRINT"M0NTH. . . 

": LOCATE 10, 14 
1110 INPUT M*:IF LEFT* (M*, 1 ) >=" 1 " AND LE 
FT*(M$, 1)<="9" THEN M=VAL <M*> : GOTO 1200 
1120 RESTORE 9000 
1125 M=0 

1130 FOR L=l TO 12 
1140 READ T* 

1150 IF T*=LEFT*(M*,3) THEN M=L 
1160 NEXT L 

1200 IF M<1 OR M>12 OR MO INT (M) THEN GO 
TO 1100 
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1300 LOCATE 1 , 17: PRINT"DAY 

": LOCATE 10, 17 
1310 INPUT D 

1320 IF D<1 OR D>31 OR DO I NT (D) THEN GO 
TO 1300 

1999 RETURN 

2000 REM FIND OUT DAY OF WEEK 

2010 A=Y+1+31*<M-1)+INT( (Y-l > /4> -INT (3*1 

NT( <Y+99)/100)/4> 

2020 IF M<=2 THEN GOTO 2040 

2030 A=Y+ 1 +3 1 * < M- 1 ) - 1 NT < < 4*M+23 ) / 1 ) + 1 NT 

( Y/4) -INT (3* (INT (Y/100) +1 ) /4) 

2040 A=A-INT(A/7>*7 

IF A=0 THEN A=7 

A=A-1:IF M=2 THEN GOTO 2100 

N=31 

IF M=4 OR M=6 OR M=9 OR M==ll 



2O50 

2060 

2070 

2080 

=30 

2090 

2 1 00 

2110 

2120 



THEN N 



GOTO 2120 

N=28 

IF Y-INT(Y/4)*4=0 THEN N= 

IF D>N THEN T*=" NON-DAY 



■29 



, DOESN' T EXIST " : RETURN 



2130 

7 

2135 

2140 

2150 

2160 

2999 

9000 

9010 

9020 

9030 

9500 



A=A+D:D=A-INT(A/7)*7s IF D=0 THEN D= 



RESTORE 9500 

FOR L=l TO D 

READ T* 

NEXT L 

RETURN 

DATA JAN, FEB, MAR 

DATA APR,MAY,JUN 

DATA JUL, AUG, SEP 

DATA OCT, NOV, DEC 

DATA SUNDAY , MONDAY , TUESDAY 
9510 DATA WEDNESDAY, THURSDAY, FRIDAY 
9520 DATA SATURDAY 



WALLBREAKER 




This is our version of the popular arcade game of the same 
name. Along the top of the screen you will see three rows of 
coloured 'bricks' and you must use the bouncing ball to 
demolish the wall in as few moves as possible. 

A little hint. If you break through the first two rows and get to 
the back wall the ball will stay bouncing, and demolishing, 
from behind until it breaks out again. 



How to play 

Use arrow keys to move the bat across the screen. 



Programming Hints 

If you are finding the game too easy, or too difficult, you can 
change the size of the bat by altering Line 80. Increase, or 
reduce the number after BL=. If you want to sit back and let 
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the ball bounce on it's own then simply increase the bat size 
until it fills the bottom of the screen. 



The Program 



10 REM 

20 ENV 1, 1, 15, 1,15,-1,1 

30 GOSUB 590 

40 HS=0 

50 BL~7 

60 BA*="":FOR L=l TO BL: BA*=BA*+CHR* < 132 

):NEXT L:BA*=" "+BA*+" " 

70 BE=31-BL 

80 GOSUB 450 

90 REM MAIN NEW GAME LOOP 

100 SC=0 

110 REM MAIN NEW FRAME LOOP 

120 BH=90 

130 GOSUB 360 

140 BX=10: GOSUB 540 

150 X=5:Y=20 

160 CX = 1:CY==-1 

170 GF=1 

180 REM MAIN BOUNCE AND SCORE LOOP 

190 GOSUB 750 

200 IF GF=0 THEN GOTO 1000 

210 GOSUB 920 

220 GOSUB 960 

230 PEN 3 

240 LOCATE 8,1: PR I NT SC; 

250 IF BHOO THEN GOTO 190 

260 REM END OF FRAME 

270 FOR L=10 TO 250 STEP 5 

280 SOUND 1,L,5:S0UND 2,L+7,4 

290 NEXT L 

300 MODE 1: LOCATE 4,11 

310 PRINT "Your score is now : " 5 SC 

320 IF SOHS THEN PR I NT "You have the hig 

h score": PRINT: PRINT"and you're still pi 

aying":GOTO 340 

330 PRINT"You are "ihs-sci" points behin 

d the high score" 

340 FOR L=l TO 4000: NEXT L 



350 


GOTO 110 


360 


REM Draw screen 


370 


MODE 1: BORDER 14 


380 


FOR L=2 TO 22 


390 


LOCATE i,L:PRINT 
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1 ayout 

: PAPER 0:PEN 2 

CHR$ ( 129) : LOCATE 32 
, L: PRINT CHR$ ( 130) ;: NEXT L 
400 LOCATE 2, 2: FOR L=2 TO 31: PRINT CHR* < 
134) ; :NEXT L 

410 FOR L=2 TO 31: PEN 3: LOCATE L, 6: PRINT 
CHR* ( 133) ; : LOCATE L, 13: PRINT CHR*(133); 
420 PEN 1: LOCATE L, 9s PRINT CHR* ( 133) ; : ME 
XT L 

430 LOCATE 2, 1 : PRINT"SCOREn HIGH 

: " ; HS 
440 RETURN 

450 REM GENERATE THE PATTERNS 
460 SYMBOL AFTER 129 
470 SYMBOL 129,4,2,1,2,4,2,1,2 
480 SYMBOL 130,32,64,128,64,32,64,129,64 
490 SYMBOL 131,24,62,126,255,255,126,62, 
24 

500 SYMBOL 132,255,255,170,85,72,16,0,0 
510 SYMBOL 133,255,170,85,170,85,170,85, 
255 

520 SYMBOL 1 34 , , , , , , ., , 255 
530 RETURN 

540 REM DRAW BAT ON SCREEN 
550 LOCATE BX,23 
560 PEN 3 
570 PRINT BA*; 
580 RETURN 
590 MC=40000 
600 TA=40000+&7F 
610 TH=INT(TA/256) 
620 TL=TA-256*TH 
630 POKE MC,?/CD 
640 POKE MC+1,&60 
650 POKE MC+2,&BB 
660 POKE MC+3,8^32 
670 POKE MC+4,TL 
680 POKE MC+5,TH 
690 POKE MC+6,&C9 
700 RETURN 
710 LOCATE XX, YY 
720 CALL MC 
730 DD=PEEK(TA) 
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740 RETURN 

750 REM SET UP NEW BALL POSITION 
760 REM CHANGE SCORE IF APPROPRIATE 
770 C=X+CX:D=Y+CY 

7S0 IF C<2 OR C>30 THEN CX=-CX: SC=SC+2: G 
OTO 770 

790 IF D<3 THEN CY=--CY: SC«=SC + 4: CX-INT (RIM 
D(1)*3)-1:G0T0 770 
800 IF D>23 THEN GF=0: RETURN 
810 XX=C+1:YY=D+1:60SUB 710 
820 IF DD-32 THEN RETURN 
830 SOUND 1,280,20,0,1 
840 IF DD=132 THEN GOTO 880 
850 BH=BH-1 

860 SC=SC+D: LOCATE XX, YY: PRINT" "5 
870 CX=INT(RND(l)*3>-i:CY=--CY:G0T0 770 
880 SC=SC+20:CY=-CY 
890 CX=INT(RND<1>*3)-1 
900 GOTO 770 
910 RETURN 

920 REM ERASE OLD BALL, PLOT NEW BALL 
930 LOCATE C+l , D+l : PRINT CHR* ( 131 > ; : LOG A 
TE X+1,Y+1: PRINT " " 
940 X=C:Y=D 
950 RETURN 

960 REM MOVE BAT IF NECESSARY 
970 IF INKEY(8)=0 AND BX>1 THEN BX=BX-1: 
GOSUB 540 

980 IF INKEY(1)=0 AND BX<BE THEM BX=BX+1 
: GOSUB 540 
990 RETURN 

1000 REM PLAYER HAS LOST THE BALL 
1010 CLS:LOCATE 1 , IOj PRINT"GAME OVER" 
1020 LOCATE 1,15: PEN 2:PRINT"Y0U SCORED 
: " ; SC 

1030 IF SOHS THEN LOCATE 1 , 18: PRINT"WHI 
CH IS THE HIGH SCORE" : HS=SC: GOTO 1050 
1040 LOCATE 1 , 18: PR I NT "SLIGHTLY ( " ; HS-SC 
;") less than " : LOCATE 1 , 20: PRINT"the hi 
gh score" 

1050 LOCATE 1 , 21 : PRINT"DO YOU WANT TO PL- 
AY AGAIN ":LOCATE 15, 23: PRINT" ( Y/N) " 
1060 I*=INKEY* 

1070 IF I*<>"Y" AND I*<>"N" THEN GOTO 10 
60 
1080 IF I*="Y" THEN GOTO 100 
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1090 MODE 1: LOCATE 1 1 , 1 1 : PRINT" type RUN 
to restart" 
1100 END 



TECHNICAL ARTIST 




If you have dreams of becoming an architect and are 
interested in producing your own plans for rooms, gardens or 
garages then this is the program for you. 

Using this program you will be able to produce highly 
accurate line drawings which you can them 'dump' onto a 
printer, if you have one and hand on to a planner. You could 
use this item for estimating how much carpeting you are 
going to need for new rooms etc. 

You can also change the colours to give you an idea of the 
final effect. 



How to play 

To move the cursor around the screen use the ARROW keys. 
To fix the end point of a line press key F. 
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To release a line and allow the cursor to move freely press key 
R. 

To clear the screen press Z. 

To change the colour with which you are drawing press C. 
You will then have to chose another colour by using digit to 
3 and by pressing ENTER. 



The program 



10 

20 

30 GOSUB 

40 

50 

60 

70 

BO 

90 

1 00 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

=Y 

220 IF 

COLOUR 

230 IF 

240 IF 

LOUR 

250 GOTO 110 

260 REM MOVE CURSOR 

270 IF FX=1 THEN GOTO 

280 PLOT X,Y, COLOUR 



REM TECHNICAL ARTIST 
MODE 1 

390 
PRINT CHR*<&17);CHR*(1>; 
X=320: Y=200 
FX=0 

WINDOW #1, 1,40, 1,24 
WINDOW #2, 1,40,25,26 
C0L0UR=1 

PLOT X,Y, COLOUR 

REM MAIN COMMAND LOOP 

CX=0:CY=0 

IF INKEY(0)=0 THEN CY=4 

IF INKEY(1>=0 THEN CX«4 

IF INKEY(2)=0 THEN CY=--4 

IF INKEY(8)=0 THEN CX— 4 

TX=X+CX:TY=Y+CY 

IF TX<1 OR TX>639 THEN TX=X 
TY<17 OR TY>399 THEN TY=Y 
INKEY*:IF A*="" THEN GOTO 260 



IF 

A*= 

IF 



IMKEY(53)=0 THEN FX=1 : XFIX=X: YFIX 



INKEY(71)=0 THEN CLS #1:PL0T X. 



INKEY(62)=0 THEN GOSUB 450 
INKEY(50)=0 THEN FX=0:PLOT X,Y,CO 



20 



133 



290 PLOT TX,TY 

300 X=TX:Y=TY 

310 GOTO 110 

320 REM MOVE RUBBER BAND 

330 IF X=TX AND Y=TY THEN GOTO 110 

340 MOVE X,Y 

350 DRAW XFIX,YFIX, COLOUR 

360 DRAW TX,TY 

370 X=TX:Y=TY 

380 GOTO 110 

390 REM START-UP KEY DEFINITIONS 

400 KEY DEF 0,0 

410 KEY DEF 1,0 

420 KEY DEF 2,0 

430 KEY DEF 8^0 

440 RETURN 

450 REM CHANGE THE COLOUR SUBROUTINE 

460 CLS #2 

470 LOCATE 1,25 

480 PR I NT "COLOUR : 0" 

490 COLOUR*="0" 

500 A*=INKEY* 

510 IF A*=CHR*(13) THEM GOTO 560 

520 IF A*<"0" OR A*>"9" THEN GOTO 500 

530 COLOUR*=A* 

540 LOCATE 9, 25: PRINT VAL (COLOUR*) ; " 

550 GOTO 500 

560 COLOUR=VAL (COLOUR*) 

570 IF COLOUR >3 THEN GOTO 460 

580 RETURN 



SPIDER 




Now here is a variation on the game of 'Frogger' which you 
have probably seen on expensive tapes and in arcade games. 

You have to help a spider back to it's web in the top of the 
screen by moving it through waves of cars. Every time you 
manage to get the spider home another wave begins so keep 
your wits about you. 



How to play 



Use the ARROW keys to move the spider around and when 
your little friend is killed off restart by pressing the SPACE bar. 
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The program 



10 REM SPIDER 

20 BORDER 13 

30 GOBUB 620 

40 GOSUB 780 

50 REM NEW PLAYER START 

60 SCORE=0 

70 REM NEW WAVE START 

SO MODE 

90 WAVE=WAVE+1 

1 00 TM=300 

110 GOSUB 840 

120 GOSUB 940 

130 X=15:Y=24 

140 PEN 11 

150 LOCATE X,Y: PRINT CHR*(251); 

160 GOSUB 1080 

170 TM=TM-6 

180 LOCATE X,Y: GOSUB 740 

190 IF DD0251 AND DDO206 OR TM=0 THEM 

GOTO 370 

200 XX=X:YY=Y 

210 IF INKEY(0)=0 THEN YY=Y-1 

220 IF INKEY(1)=0 THEN XX=X+1 

230 IF INKEY(2)=0 THEN YY=Y+1 

240 IF INKEY(8)=0 THEN XX=X-1 

250 IF X<1 OR X>20 OR Y>25 THEN GOTO 370 

260 LOCATE XX, YY: GOSUB 740 

270 IF DD=253 THEN GOTO 500 

280 IF DDO206 AND DD0251 THEN GOTO 370 

290 LOCATE X,Y 

300 PEN 7 

310 PRINT CHR*(206>; 

320 LOCATE XX, YY 

330 PEN 11 

340 PRINT CHR*(251); 

350 X=XX:Y=YY 

360 GOTO 160 

370 REM DEAD 

380 LOCATE 4, 25: PEN 14 

390 PRINT" SPLAT i " ; 

400 LOCATE 3, 10 

410 PRINT" SCORE : "! SCORE 
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420 FOR Q=300 TO 450 STEP 50 

430 SOUND 1,0,50 

440 SOUND 2,0+15,45 

450 SOUND 0,0+30,40 

460 NEXT Q 

470 IF INKEY*=" " THEN GOTO 470 

480 IF INKEY*<>" " THEN GOTO 480 

490 GOTO 60 

500 REM SPIDER HAS REACHED THE WEB 

510 SCORE=SCORE+TM 

520 PEN 7 

530 LOCATE 10,2 

540 PRINT CHR*<206); 

550 PEN 15 

560 LOCATE 10,1:PRINT CHR*<251>5 

570 LOCATE 5, 25: PRINT"WELL DONE" 

580 LOCATE 3, 10: PRINT" SCORE s " 5 SCORE 

590 FOR Q=l TO 500 

600 SOUND 1,0,1: NEXT Q 

610 GOTO 70 

620 REM MACHINE CODE 

630 MEMORY &-.A87F 

640 MC=S<A880 

650 TA=8<A8FF 

660 POKE MC,&CD 

670 POKE MC+1,2<60 

680 POKE MC+2,S<BB 

690 POKE MC+3,S<32 

700 POKE MC+4,2<FF 

710 POKE MC+5,S<AB 

720 POKE MC+6,?<C9 

730 RETURN 

740 REM CHECK ON SCREEN USING MACHINE CO 

DE ROUTINE 

750 CALL MC 

760 DD=PEEK(TA) 

770 RETURN 

780 REM DEFINE LORRY AND SPIDER CHARACTE 

RS 

790 SYMBOL 250, 0, S<77, ?<22, ?<7E, ?<BE, ?<7E, 2<22 

,?<77 

800 SYMBOL 251 , &24, ?<99, 2<7E, &3C, 2<FF , 2<3C, & 

3C,&5A 

8 1 SYMBOL 252 , , &E0 , &40 , S<FE , &FF , &FE , &40 

, 8cE0 



137 



820 SYMBOL 253 , 2<BD , 2.42 , &BD , &B5 , ?AD , 2<BD . <- 
42,&BD 

830 RETURN 

840 REM BUILD LORRY STRINGS 

850 A*="" 

860 FOR L=l TO 5 

870 A*=A*+CHR* (250) +STRING* <3, CHR* (206) ) 

880 NEXT L 

890 B*="" 

900 FOR L=l TO 4 

910 B*=B*+CHR*(2S2)+STRING*(4,CHR*<206> ) 

920 NEXT L 

930 RETURN 

940 REM FILL IN THE SCREEN 

950 PEN 7 

960 Q$=STRING$(20,CHR*(206> ) 

970 LOCATE 1,2 

980 FOR L=l TO 24 

990 PRINT Q*5 

1000 NEXT L 

1010 LOCATE 1, 1 

1020 PEN 8 

1030 PRINT STRING* (9, CHR* (250) >; " 

NG*Q0,CHR$<252) ) ; 

1040 PEN 13 

1050 LOCATE 10, 1 

1060 PRINT CHR*<253>; 

1070 RETURN 

1080 REM MOVE THE LORRIES 

1090 PEN 9 

1100 LOCATE 1,3 

1110 PRINT A$ 

1120 LOCATE 1,7 

1130 PRINT A* 

1140 LOCATE 1,11 

1150 PRINT A* 

1160 LOCATE 1,15 

1170 PRINT A* 

1 180 A*=RIGHT* (A*, 19) +LEFT* (A*, 1 ) 

1190 PEN 7 

1200 LOCATE 1,5 

1210 PRINT B* 

1220 LOCATE 1,9 

1230 PRINT B* 

1240 LOCATE 1, 13 
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1250 PRINT B$ 

1260 LOCATE 1, 17 

1270 PRINT B$ 

1280 B*=RIGHT*(B$, 1 ) +LEFT* <B$, 19) 

1290 RETURN 



DOUBLE SURROUND 




Here is a game you can only play with a close friend as you will 
have to sit in each others lap to piay. 

Each player will have the target of trying to surround his 
opponent before being surrounded himself. Sounds tricky 
doesn't it? Just wait until you try to play complete with some 
very nasty crashing and crunching noises when you finally 
collide. 

Oh, by the way, if you happen to crash into your own trail it 
will mean goodbye for you so keep on your toes and off your 
opponents trail - and your own. 



How to play 

Player One uses Q and A and Z and X 
Player Two uses . and , and ; and / 
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The program 



10 REM DOUBLE SURROUND 

20 C=3:D=3:M0DE 1 : BORDER 14 

30 GOSUB 560 

40 SYMBOL 250,&3C,Sc3C,S<D7 } &EB,&D7,&EB,&!: 

L# t| *y. *!*' L/ 

50 REM NEW WAVE START 
60 X1=5:Y1=12 



80 A1=1:B1=0 

90 A2=-1:B2=0 

100 MODE 1 

110 SOUND 1,0,4,10,0,0,15 

120 IF INKEY(67>=0 THEN A 1=0 

130 IF INKEY<69)=0 THEM A 1=0 

140 IF INKEY(71)=0 THEN Al=- 

150 IF INKEY(63)=0 THEM Al = l 

160 LOCATE X1,Y1:PEN 3: PRINT 

170 X1=X1+A1:Y1=Y1+B1 

180 XX=X1:YY=Y1 

190 GOSUB 680 

200 IF DD<>32 THEN GOTO 330 

210 LOCATE XI, Yl 5 PEN 1: PRINT 

220 IF INKEY(39)=0 THEN A2=- 

230 IF INKEY<31>=0 THEN A2=l 

240 IF INKEY(30)=0 THEN A2=0 

250 IF IMKEY(28)=0 THEM A2=0 

260 LOCATE X2,Y2:PEN 3: PRINT 

270 X2=X2+A2: Y2=Y2+B2 

280 XX=X2:YY=Y2 

290 GOSUB 680 

300 IF DD<>32 THEN GOTO 360 

310 LOCATE X2,Y2:PEN 2: PR I NT 

320 GOTO 110 

330 REM PLAYER ONE CRASHED 

340 C=C-1 

350 D=D+1 

360 REM PLAYER TWO CRASHED 

370 D=D-1 

380 FOR L=10 TO 500 STEP 35 

390 SOUND 1 5 L, 30: SOUND 2,L+20,28 

400 FOR Q=l TO 20 

410 INK 3, INT(RND(l)*15+5) 



:B1=-1 




:B1 = 1 




1:B1=0 




:B1=0 




CHR*C 


250) 



CHR$ 
1;B2= 
: B2»0 
:B2=1 

CHR* 



(250) 




1 
(250) 



CHR*(250) 
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420 NEXT Q 

430 NEXT L 

440 INK 3,9 

450 IF SQ(1)<>4 THEN GOTO 450 

460 IF C*D<>0 THEN GOTO 50 

470 REM SOMEONE HAS WON 

480 LOCATE 8, 12 

490 PEN 1 

500 PRINT" PLAYER " ; 

510 IF C=0 THEM PRINT "TWO "5 ELSE PRINT" 

ONE "; 

520 PRINT"WINS BY " ; ABS <D--C) ; " 

11 * 
•I 

530 IF INKEY*K>"" THEN GOTO 530 

540 IF INKEY*="" THEN GOTO 540 

550 RUN 

560 REM PUT MACHINE CODE INTO RAM 

570 MEMORY &A97F 

580 MC=&A980 

590 TA=8<A9FF 

600 POKE MC,&CD 

610 POKE MC+1,&60 

620 POKE MC+2,2/.BB 

630 POKE MC+3,2<32 

640 POKE MC+4J&FF 

650 POKE MC+5,8<A9 

660 POKE MC+6,&C9 

670 RETURN 

680 REM READ CHARACTER FROM SCREEN 

690 IF XX<1 OR XX>40 OR YY< 1 OR YY>25 TH 

EN DD=-1:S0T0 730 

700 LOCATE X X , Y Y 

710 CALL. MC 

720 DD=PEEK(TA) 

730 RETURN 
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You are in charge of a very fast growing snake which is 
charging around your television screen, getting longer and 
longer second by second. 

Your objective is to stay alive as long as you can, before your 
own body becomes too long and you run over yourself and 
self destruct. 

If you run off the edge of the screen, you will just pop up on the 
other side and keep going, so don't try to gain any time by 
taking this way out. 

The longer you can stay alive the higher score you will 
achieve but I'm afraid that the snake will get you into trouble 
in the end. 



How to play 



Guide yourself around the screen using the arrow keys to 
move. 
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You will be asked for your name and when you have typed it 
in and pressed ENTER the game will begin. To restart the 
game press the SPACE bar. 



The program 



10 
20 
30 
40 
50 



REM SNAKER 
GOSUB 470 



=o 






251 



:42, 



-. 1 8 , &3C , &42 , &DB , ?,DB 

■: 1 8 , ?<5A , &3C , &E7 , &E7 , &3C , ?•: 1 



HIGH 

HSif>="" 

SYMBOL 
C,&18 
60 SYMBOL 
8,&5A 

70 REM MEW 
SO SC-0 
90 MODE 1 
100 LOCATE 1, 10 

110 INPUT" What is your name "Sname* 
120 IF LEN(MAME*) >10 OR NAME*="" THEM 
TO 90 



PLAYER LOOP 



GO 



130 

140 

150 

160 

170 

RE 

ISO 

1 90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 



MODE 1 
X=5:Y=5 
KK=1 

IF HIGH=0 THEN GOTO 180 
LOCATE 1,1: PEN 1: PRINT" 
OF "."HIGH;" BY ";HS* 
REM MAIN PLAY LOOP 
GOSUB 650 
A=X:B=Y 
KK=Q 

IF Kl<=0 THEN B=B-1:IF 
IF KK=2 THEN B=B+1:IF 
IF KK=1 THEN A=A+1:IF 
IF KK=8 THEN A=A-1:IF 
XX=A:YY=B 
GOSUB 600 

IF DD<>32 THEN GOTO 370 
PEN 3 

LOCATE X,Y: PRINT CHR*(250) 

PEN 2 

LOCATE A, B : PR I NT CHR*(251) 

X=A:Y=B 

SC=SC+15 



HIGH SCO 



B=0 THEN B= 
B=26 THEN B 
A=41 THEN A 
A=0 THEN A= 



= 1 
40 
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350 SOUND 1,300,5 

360 GOTO 190 

370 REM THE SNAKE ATE ITSELF 

380 FOR (3=10 TO 450 STEP 5 

390 SOUND 1,Q,4 

400 SOUND 2,Q+10,3 

410 INK 3, INT(RND(l>*16+4) 

420 NEXT Q 

430 IF SOHIGH THEN LOCATE 1 , 10: PRINT"TH 

E NEW HIGH SCORE" :HIGH=SCs HS*=NAME* 

440 IF INKEY$=" " THEN GOTO 440 

450 IF INKEYSO" " THEN GOTO 450 

460 GOTO 70 

470 REN PUT MACHINE CODE ABOVE RAMTOP 

480 MEMORY &A97F 

490 MC=&A980 

500 TH=?<A9 

510 TL=»&FF 

520 POKE MC,&CD 

530 POKE MC+1,&60 

540 POKE MC+2,&BB 

550 POKE MC+3,&32 

560 POKE MC+4,TL 

570 POKE MC+5,TH 

580 POKE MC+6,?<C9 

590 RETURN 

600 REM RETURN SCREEN CHARACTER 

610 LOCATE XX, YY 

620 CALL MC 

630 DD=PEEK(S<A9FF> 

640 RETURN 

650 Q=KK 

660 FOR L=0 TO 8 

670 IF INKEY<L>=0 THEN Q=L 

680 NEXT L 

690 IF QOO AND Q<>1 AND Q<>2 AND QOS T 

HEN Q=KK 

700 RETURN 



THE AMSTRAD PROGRAM BOOK 



Your Amstrad computer has already been haiidd by 

the computer press as having 'graphics and sound 

facilities superior to the Spectrum and Oric*. 

To meet the demands of the Amstrad we have 

produced a wide ranging selection of programs to 

make full use of the colour, sound and speed available 

to you. 

Here are arcade style games to test your reaction 

skills and mental agility as you battle with aliens from 

outer space. 

Adventures to make you face the dragons and 

dungeons to save the princess. 

Brainieasers to make you skip through minefields and 

worse. 

Programmers aids to help you build up your own 

computing skills, 

This is the AMSTRAD PROGRAM BOOK with 

something for everyone. 

THE AUTHOR 

Peter Goode is the author of several best selling 

program books including the Atari 6Q0XL Program 

Book and Memotech MTX Program Book. 
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